gcc/testsuite/gfortran.fortran-torture/execute/save_2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

! 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