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