blob: d99a3eb0c37e54873c382e4d29e627b26f75b7ab [file] [log] [blame]
! 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