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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152356 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 671f37a..01805ae 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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" }