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