save_2.f90   [plain text]

! 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) call abort
      end subroutine foo

      subroutine bar
	integer a(10)
	a = 34
      end subroutine bar