summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/initializer.f90
blob: 55cc185f370a262c2746bb4daf8ba84227ca1213 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
! 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