PR testsuite/31538
* gfortran.dg/result_in_spec_1.f90: Increase dimension from 2
to 4 at line 38 to fix bounds problem.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123725
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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 ()