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

gcc/testsuite/ChangeLog

+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

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 ()