re PR fortran/31538 (misleading bounds check error)

2007-04-11  Paul Thomas  <pault@gcc.gnu.org>

	PR testsuite/31538
	* gfortran.dg/result_in_spec_1.f90: Increase dimension from 2
	to 4 at line 38 to fix bounds problem.

From-SVN: r123725

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0ddbb20735bb69f50482838bc64f01a7b9358036..196c19a41bb6fb3ee0cebd7e06813f2a5dde69c1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-04-11  Paul Thomas  <pault@gcc.gnu.org>
+
+       PR testsuite/31538
+       * gfortran.dg/result_in_spec_1.f90: Increase dimension from 2
+       to 4 at line 38 to fix bounds problem.
+
 2007-04-11  Tobias Burnus  <burnus@net-b.de>
 
        PR testsuite/31240

diff --git a/gcc/testsuite/gfortran.dg/result_in_spec_1.f90 b/gcc/testsuite/gfortran.dg/result_in_spec_1.f90
index bfb5412224b0f583ef54896f47b3d14fc1266c62..292bc3c93be230fd738dba82b195a478219504da 100644 (file)
--- a/gcc/testsuite/gfortran.dg/result_in_spec_1.f90
+++ b/gcc/testsuite/gfortran.dg/result_in_spec_1.f90
@@ -35,7 +35,7 @@ program test
   if (any (myfunc (test2(1)) .ne. "ABC")) call abort ()
 contains
   function myfunc (ch) result (chr)
-    character(len(ch)) :: chr(2)
+    character(len(ch)) :: chr(4)
     character (*) :: ch(:)
     if (len (ch) .ne. 3) call abort ()
     if (any (ch .ne. "ABC")) call abort ()