gcc/testsuite/gfortran.dg/init_flag_4.f90

   1 ! { dg-do run }
   2 ! { dg-options "-finit-real=inf" }
   3 ! { dg-add-options ieee }
   4
   5 program init_flag_4
   6   call real_test
   7 end program init_flag_4
   8
   9 ! Test some initializations for both implicitly and
  10 ! explicitly declared local variables.
  11 subroutine real_test
  12   real r1
  13   real r2(10)
  14   dimension r3(10,10)
  15   if (r1 .le. 0 .or. r1 .ne. 2*r1) call abort
  16   if (r2(2) .le. 0 .or. r2(2) .ne. 2*r2(2)) call abort
  17   if (r3(5,5) .le. 0 .or. r3(5,5) .ne. 2*r3(5,5)) call abort
  18   if (r4 .le. 0 .or. r4 .ne. 2*r4) call abort
  19 end subroutine real_test