! 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 |