blob: c3775bbecc3ebeb552f8576626a3c04fd76cda44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! PR fortran/18518
program main
call foo
call bar
call foo
end program main
subroutine foo
integer i,g,h
data i/0/
equivalence (g,h)
save g
if (i == 0) then
i = 1
h = 12345
end if
if (h .ne. 12345) call abort
end subroutine foo
subroutine bar
integer a(10)
a = 34
end subroutine bar
|