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 ! { dg-add-options ieee }
   4
   5 program init_flag_3
   6   call real_test
   7   call logical_test
   8   call int_test
   9   call complex_test
  10 end program init_flag_3
  11
  12 ! Test some initializations for both implicitly and
  13 ! explicitly declared local variables.
  14 subroutine real_test
  15   real r1
  16   real r2(10)
  17   dimension r3(10,10)
  18   if (r1 .eq. r1) STOP 1
  19   if (r2(2) .eq. r2(2)) STOP 2
  20   if (r3(5,5) .eq. r3(5,5)) STOP 3
  21   if (r4 .eq. r4) STOP 4
  22 end subroutine real_test
  23
  24 subroutine logical_test
  25   logical l1
  26   logical l2(2)
  27   if (l1 .neqv. .false.) STOP 5
  28   if (l2(2) .neqv. .false.) STOP 6
  29 end subroutine logical_test
  30
  31 subroutine int_test
  32   integer i1
  33   integer i2(10)
  34   dimension i3(10,10)
  35   if (i1 /= -1) STOP 7
  36   if (i2(2) /= -1) STOP 8
  37   if (i3(5,5) /= -1) STOP 9
  38   if (i4 /= -1) STOP 10
  39 end subroutine int_test
  40
  41 subroutine complex_test
  42   complex c1
  43   complex c2(20,20)
  44   if (c1 .eq. c1) STOP 11
  45   if (c2(1,1) .eq. c2(1,1)) STOP 12
  46 end subroutine complex_test