From 95b243af7b3ca95a7f15081e945f64bc85a5adbe Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Mon, 5 Jan 2009 19:44:09 +0100 Subject: [PATCH] re PR fortran/38669 (Array bounds violation for arguments of elemental subroutine) 2009-01-05 Mikael Morin 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 | 7 +++++++ gcc/testsuite/gfortran.dg/elemental_subroutine_7.f90 | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 38a310555f6..0d2c47c25f6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2009-01-05 Mikael Morin + + 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 * 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 20e0e0c7f9a..7c7875bbfcd 100644 --- 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 -- 2.30.2