gcc/testsuite/gfortran.dg/initialization_20.f90

   1 ! { dg-do compile }
   2 ! Test for PR19925
   3 !
   4 program pr19925
   5   implicit none
   6   integer j
   7   integer, parameter :: n = 100000
   8   integer, parameter :: i(n)=(/(j,j=1,n)/) ! { dg-error "number of elements" }
   9   print *, i(5) ! { dg-error "has no IMPLICIT type" }
  10 end program pr19925