OpenCores
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.