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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131624 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 090bf02..27fb90a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/reshape_2.f90 b/gcc/testsuite/gfortran.dg/reshape_2.f90
new file mode 100644 (file)
index 0000000..d28058d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/reshape_2.f90
@@ -0,0 +1,24 @@
+! { 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