From e9a551cc28cca044119741344833916f1e90be3f Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Thu, 1 Oct 2009 02:34:59 +0000 Subject: [PATCH] 2009-09-30 Dennis Wassel * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152356 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/bounds_check_11.f90 | 2 +- gcc/testsuite/gfortran.dg/bounds_check_7.f90 | 2 +- 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 671f37a47e1..01805ae8d3f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-09-30 Dennis Wassel + + * 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 * 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 648e1d3ab61..6e2cf3e7884 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 362cc662a1a..c488a68cadc 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 8617456f1e0..d3eb271c328 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" } -- 2.11.0