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

From-SVN: r161767

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ea3e85660cb7524564aef81c6ff0193cfccb4555..6c6f1d089cefe35bbf80b2627111287ad0a7a8f6 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 2dcc826a26ee2f651f575e4c4c123cb29893a0b5..15d70215020158cbb2348231b21d59795b8efc27 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" }