diff options
| author | Dennis Wassel <dennis.wassel@gmail.com> | 2009-10-01 02:34:59 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-10-01 02:34:59 +0000 |
| commit | ec30ab2c798327e9d538b985a410ba79487ae801 (patch) | |
| tree | 579f60a860d4619cc36ccc628ae9c67fccc932ac /gcc | |
| parent | c6ec7cc699a93d16ac7be97e77a8eb1b9bfaf41e (diff) | |
| download | gcc-ec30ab2c798327e9d538b985a410ba79487ae801.zip gcc-ec30ab2c798327e9d538b985a410ba79487ae801.tar.gz gcc-ec30ab2c798327e9d538b985a410ba79487ae801.tar.bz2 | |
bounds_check_7.f90: Adapted error message.
2009-09-30 Dennis Wassel <dennis.wassel@gmail.com>
* gcc/testsuite/gfortran.dg/bounds_check_7.f90: Adapted error message.
* gcc/testsuite/gfortran.dg/bounds_check_11.f90: Likewise.
* gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90: Likewise.
From-SVN: r152356
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_11.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_7.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90 | 2 |
4 files changed, 9 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 671f37a..01805ae 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-09-30 Dennis Wassel <dennis.wassel@gmail.com> + + * gcc/testsuite/gfortran.dg/bounds_check_7.f90: Adapted error message. + * gcc/testsuite/gfortran.dg/bounds_check_11.f90: Likewise. + * gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90: Likewise. + 2009-09-30 Tobias Burnus <burnus@net-b.de> * gfortran.dg/select_type_4.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/bounds_check_11.f90 b/gcc/testsuite/gfortran.dg/bounds_check_11.f90 index 648e1d3..6e2cf3e 100644 --- a/gcc/testsuite/gfortran.dg/bounds_check_11.f90 +++ b/gcc/testsuite/gfortran.dg/bounds_check_11.f90 @@ -21,5 +21,5 @@ contains end program test ! { dg-output "At line 18 of file .*" } -! { dg-output "Array reference out of bounds, lower bound of dimension 2 of array 'jp' exceeded .0 < 1." } +! { dg-output "Index '0' of dimension 2 of array 'jp' below lower bound of 1" } diff --git a/gcc/testsuite/gfortran.dg/bounds_check_7.f90 b/gcc/testsuite/gfortran.dg/bounds_check_7.f90 index 362cc66..c488a68 100644 --- a/gcc/testsuite/gfortran.dg/bounds_check_7.f90 +++ b/gcc/testsuite/gfortran.dg/bounds_check_7.f90 @@ -12,4 +12,4 @@ program test integer x(42) call foo(x) end program test -! { dg-output "Array reference out of bounds .* lower bound of dimension 1 exceeded" } +! { dg-output "Index '0' of dimension 1 of array 'a' below lower bound of 1" } diff --git a/gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90 b/gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90 index 8617456..d3eb271 100644 --- a/gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90 +++ b/gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90 @@ -4,4 +4,4 @@ integer x(1) x(2) = x(1) ! { dg-warning "out of bounds" } end -! { dg-output "out of bounds for array 'x', upper bound of dimension 1 exceeded." } +! { dg-output "Index '2' of dimension 1 of array 'x' above upper bound of 1" } |