From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 18 Jan 2008 02:16:48 +0000 (+0000)
Subject: re PR fortran/34556 (Rejects valid with bogus error message: parameter initalization)
X-Git-Tag: releases/gcc-4.3.0~553
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dccd85968c3c08bfc8479f70c086670ea84d7bb8;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 090bf0214425..27fb90a6f151 100644
--- 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
index 000000000000..d28058dddb23
--- /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