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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 38a310555f63d68fb18ace4ab88fc355e3f0dcb9..0d2c47c25f6c21f3c87708af34d12f90fd1d9be2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/elemental_subroutine_7.f90 b/gcc/testsuite/gfortran.dg/elemental_subroutine_7.f90
index 20e0e0c7f9a5fae4232bb99cce0e01604f4a6a63..7c7875bbfcd3945e89e407a7bb144fd0c69a1ad8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/elemental_subroutine_7.f90
+++ b/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