gcc/testsuite/gfortran.dg/init_flag_4.f90

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