Merge from mainline, version 106440, to sh-elf-4_1-branch .

[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / save_2.f90

! 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