* gfortran.dg/char_bounds_check_fail_1.f90: Correct dg-output string.

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ea3e856..6c6f1d0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2010-07-03  Hans-Peter Nilsson  <hp@axis.com>
+
+       * gfortran.dg/char_bounds_check_fail_1.f90: Correct dg-output string.
+
 2010-07-02  Le-Chun Wu  <lcwu@google.com>
 
        PR/44128

diff --git a/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 b/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90
index 2dcc826..15d7021 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90
+++ b/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90
@@ -10,4 +10,4 @@ program bound_check
       zz(i:j) = 'abcdef'
       print * , zz
       end
-! { dg-output "Substring out of bounds: upper bound exceeds string length.*at line 9)" }
+! { dg-output "At line 10.*Substring out of bounds: upper bound \\(11\\) of 'zz' exceeds string length" }