Subversion Repositories openrisc

! 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