re PR fortran/38669 (Array bounds violation for arguments of elemental subroutine)

2009-01-05  Mikael Morin  <mikael.morin@tele2.fr>

	PR fortran/38669
	PR fortran/38726
	* gfortran.dg/elemental_subroutine_7.f90: 
	Fix p values so that it can be used as vector subscript.

From-SVN: r143084

gcc/testsuite/ChangeLog

+2009-01-05  Mikael Morin  <mikael.morin@tele2.fr>
+
+	PR fortran/38669
+	PR fortran/38726
+	* gfortran.dg/elemental_subroutine_7.f90: 
+	Fix p values so that it can be used as vector subscript.
+
 2009-01-05  Jason Merrill  <jason@redhat.com>
 
 	* g++.dg/cpp0x/defaulted7.C: New test.

gcc/testsuite/gfortran.dg/elemental_subroutine_7.f90

@@ -14,7 +14,7 @@ program gfcbu84_main
   jplev = 42
   k_lev = 1
   call random_number (r)
-  p = 20 * r - 10
+  p = 41 * r + 1
   allocate (q(jplev))
 
   q = 0