OSDN Git Service

3cd9dc22e86e864b9e941ba8246a65443274fac5
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / init_flag_3.f90
1 ! { dg-do run }
2 ! { dg-options "-finit-integer=-1 -finit-logical=false -finit-real=nan" }
3
4 program init_flag_3
5   call real_test
6   call logical_test
7   call int_test
8   call complex_test
9 end program init_flag_3
10
11 ! Test some initializations for both implicitly and
12 ! explicitly declared local variables.
13 subroutine real_test
14   real r1
15   real r2(10)
16   dimension r3(10,10)
17   if (r1 .eq. r1) call abort
18   if (r2(2) .eq. r2(2)) call abort
19   if (r3(5,5) .eq. r3(5,5)) call abort
20   if (r4 .eq. r4) call abort
21 end subroutine real_test
22
23 subroutine logical_test
24   logical l1
25   logical l2(2)
26   if (l1 .neqv. .false.) call abort
27   if (l2(2) .neqv. .false.) call abort
28 end subroutine logical_test
29
30 subroutine int_test
31   integer i1
32   integer i2(10)
33   dimension i3(10,10)
34   if (i1 /= -1) call abort
35   if (i2(2) /= -1) call abort
36   if (i3(5,5) /= -1) call abort
37   if (i4 /= -1) call abort
38 end subroutine int_test
39
40 subroutine complex_test
41   complex c1
42   complex c2(20,20)
43   if (c1 .eq. c1) call abort
44   if (c2(1,1) .eq. c2(1,1)) call abort 
45 end subroutine complex_test