gcc/testsuite/gfortran.fortran-torture/execute/parameter_1.f90

   1 ! Program to test array parameter variables.
   2 program parameter_1
   3   implicit none
   4   integer i
   5   INTEGER, PARAMETER :: ii(10) = (/ (I,I=1,10) /)
   6   REAL, PARAMETER    :: rr(10) = ii
   7
   8   do i = 1, 10
   9     if (ii(i) /= i) call abort()
  10     if (rr(i) /= i) call abort()
  11   end do
  12 end program parameter_1