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

gcc/testsuite/ChangeLog

+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.

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" }
 

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" }

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" }