URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [save_2.f90] - Rev 303
Compare with Previous | Blame | View Log
! 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