diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/elemental_subroutine_7.f90 | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 38a3105..0d2c47c 100644 --- 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 20e0e0c..7c7875b 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 |