diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2007-04-11 21:48:15 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2007-04-11 21:48:15 +0000 |
| commit | 13ce12ebc887230b9c9949d39764ed33af7deb6e (patch) | |
| tree | 5c11c506ac716cd849479981b92b722943bbbfa8 | |
| parent | 0f4b25a3e3321a557a675189f72807c0ffd15331 (diff) | |
| download | gcc-13ce12ebc887230b9c9949d39764ed33af7deb6e.zip gcc-13ce12ebc887230b9c9949d39764ed33af7deb6e.tar.gz gcc-13ce12ebc887230b9c9949d39764ed33af7deb6e.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/result_in_spec_1.f90 | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0ddbb20..196c19a 100644 --- 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 bfb5412..292bc3c 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 () |