re PR fortran/34556 (Rejects valid with bogus error message: parameter initalization)

2007-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR target/34556
	* gfortran.dg/reshape_2.f90: New test.

From-SVN: r131624

gcc/testsuite/ChangeLog

+2007-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR target/34556
+	* gfortran.dg/reshape_2.f90: New test.
+
 2007-01-18  Bernhard Fischer  <aldot@gcc.gnu.org>
 
 	* gcc.dg/20040223-1.c: Fix comment typo.

gcc/testsuite/gfortran.dg/reshape_2.f90

+! { dg-do run }
+! PR34556 Rejects valid with bogus error message: parameter initalization
+! Found using the Fortran Company Fortran 90 Test Suite (Lite),
+! Version 1.4
+! Test case modified by Jerry DeLisle  <jvdelisle@gcc.gnu.org to
+! show correct results.
+module splitprms
+      integer, parameter  :: nplam = 3 ! # of plans to expand TABs
+      integer, parameter  :: linem = 132 ! max. line length
+      integer, parameter  :: ncntm = 39 ! max. # cont. lines
+      integer, parameter, dimension (linem, nplam) :: nxttab =  &
+      reshape ([[(6, i= 1, 2*linem) ], [(i, i= 1,linem)],    &
+                max ([(i, i= 1,linem)], [(10*i, i= 1,linem)])],      &
+               [linem, nplam ])
+end module splitprms
+
+program test
+  use splitprms
+  if (nxttab(1, 1) .ne. 6) call abort
+  if (nxttab(1, nplam) .ne. 1) call abort
+  if (nxttab(linem, 1) .ne. 6) call abort
+  if (nxttab(linem, nplam) .ne. 132) call abort
+end program test
+! { dg-final { cleanup-modules "splitprms" } }
\ No newline at end of file