URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [initializer.f90] - Rev 843
Go to most recent revision | Compare with Previous | Blame | View Log
! Program to test static variable initialization
! returns the parameter from the previous invocation, or 42 on the first call.
function test (parm)
implicit none
integer test, parm
integer :: val = 42
test = val
val = parm
end function
program intializer
implicit none
integer test
character(11) :: c = "Hello World"
character(15) :: d = "Teststring"
integer, dimension(3) :: a = 1
if (any (a .ne. 1)) call abort
if (test(11) .ne. 42) call abort
! The second call should return
if (test(0) .ne. 11) call abort
if (c .ne. "Hello World") call abort
if (d .ne. "Teststring") call abort
end program
Go to most recent revision | Compare with Previous | Blame | View Log