From: Dennis Wassel <dennis.wassel@gmail.com>
Date: Thu, 1 Oct 2009 02:34:59 +0000 (+0000)
Subject: bounds_check_7.f90: Adapted error message.
X-Git-Tag: releases/gcc-4.5.0~3168
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ec30ab2c798327e9d538b985a410ba79487ae801;p=thirdparty%2Fgcc.git

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 671f37a47e11..01805ae8d3f3 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 648e1d3ab610..6e2cf3e78842 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 362cc662a1a1..c488a68cadc6 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 8617456f1e03..d3eb271c328e 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" }