From: Paul Thomas Date: Wed, 11 Apr 2007 21:48:15 +0000 (+0000) Subject: re PR fortran/31538 (misleading bounds check error) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=13ce12ebc887230b9c9949d39764ed33af7deb6e;p=gcc.git re PR fortran/31538 (misleading bounds check error) 2007-04-11 Paul Thomas 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 0ddbb20735b..196c19a41bb 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-04-11 Paul Thomas + + 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 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 bfb5412224b..292bc3c93be 100644 --- 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 ()