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