From: Mikael Morin Date: Mon, 5 Jan 2009 18:44:09 +0000 (+0100) Subject: re PR fortran/38669 (Array bounds violation for arguments of elemental subroutine) X-Git-Tag: releases/gcc-4.4.0~1034 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=95b243af7b3ca95a7f15081e945f64bc85a5adbe;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 38a310555f63..0d2c47c25f6c 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 20e0e0c7f9a5..7c7875bbfcd3 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