re PR fortran/13201 (PARAMETER variables of nonconstant shape are accepted)

PR fortran/13201
* gfortran.dg/shape_1.f90: New test.

From-SVN: r84403

gcc/testsuite/ChangeLog

+2004-07-09  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	PR fortran/13201
+	* gfortran.dg/shape_1.f90: New test.
+
 2004-07-09  Zack Weinberg  <zack@codesourcery.com>
 	    Andrew Pinski  <apinski@apple.com>
 

gcc/testsuite/gfortran.dg/shape_1.f90

+! { dg-do compile }
+! PR 13201 we used to not give an error in those cases
+subroutine foo(n) 
+  integer, parameter :: a(n) = 1 ! { dg-error "cannot be automatic" "automatic shape" }
+  integer, parameter :: z(:) = (/ 1,2,3 /) ! { dg-error "cannot be automatic" "assumed shape" }
+end subroutine