initializer.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 27 行

! 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