re PR fortran/19925 (Implied do-loop in an initialization expression is broken)

2008-11-01  Steven G. Kargl  <kargls@comcast.net>

	PR fortran/19925
	* gfortran.dg/initialization_20.f90: New test.
	* gfortran.dg/initialization_21.f90: Ditto.

From-SVN: r141519

gcc/testsuite/ChangeLog

+2008-11-01  Steven G. Kargl  <kargls@comcast.net>
+
+	PR fortran/19925
+	* gfortran.dg/initialization_20.f90: New test.
+	* gfortran.dg/initialization_21.f90: Ditto.
+
 2008-11-01  Daniel Kraft  <d@domob.eu>
 
 	PR fortran/35681

gcc/testsuite/gfortran.dg/initialization_20.f90

+! { dg-do compile }
+! Test for PR19925
+!
+program pr19925
+  implicit none
+  integer j
+  integer, parameter :: n = 100000
+  integer, parameter :: i(n)=(/(j,j=1,n)/) ! { dg-error "number of elements" }
+  print *, i(5)
+end program pr19925

gcc/testsuite/gfortran.dg/initialization_21.f90

+! { dg-do compile }
+! { dg-options "-fmax-array-constructor=100000" }
+! Test for PR19925
+!
+program pr19925
+  implicit none
+  integer j
+  integer, parameter :: n = 100000
+  integer, parameter :: i(n) = (/ (j, j=1, n) /)
+  print *, i(5)
+end program pr19925