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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 671f37a47e11668249d32b4ef38541a22a284ddf..01805ae8d3f37b3c2983f5fe9ee605abc802ac31 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 648e1d3ab610d2f6acf5a77e560dbf03a2254245..6e2cf3e788428ad47fecf71dfaf208fc1b150371 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 362cc662a1a117b7a56a28a198427441147aac14..c488a68cadc6f3ff3634453e6ccef2983c22b870 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 8617456f1e0355ea7b6e0476e654ec79885b18e2..d3eb271c328eed36dfd68642584e58b9e8a5155e 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" }