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