blob: d99a3eb0c37e54873c382e4d29e627b26f75b7ab (
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) STOP 1
end subroutine foo
subroutine bar
integer a(10)
a = 34
end subroutine bar
|
