OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

bounds_check_10.f90: Fix testcase. 

2007-10-14  Tobias Burnus  <burnus@gcc.gnu.org>

        * gfortran.dg/bounds_check_10.f90: Fix testcase.

From-SVN: r129293
This commit is contained in:
Tobias Burnus 2007-10-14 12:07:07 +02:00
parent 33fb2a99c3
commit a815d7b121
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,9 +1,13 @@
2007-10-14 Tobias Burnus <burnus@gcc.gnu.org>
* gfortran.dg/bounds_check_10.f90: Fix testcase.
2007-10-13 Tobias Schlüter <tobi@gcc.gnu.org>
Paul Thomas <pault@gcc.gnu.org>
PR fortran/33254
PR fortran/33727
* bounds_check_10.f90: New.
* gfortran.dg/bounds_check_10.f90: New.
2007-10-13 David Edelsohn <edelsohn@gnu.org>

2
gcc/testsuite/gfortran.dg/bounds_check_10.f90
View File

@ -8,7 +8,7 @@ character (len=2) :: x, y
character (len=2) :: z(3)
x = "a "
y = "cd"
z = [y(1:1), x(1:len(trim(x)))] ! should work
z = [y(1:1), y(1:1), x(1:len(trim(x)))] ! should work
z = [trim(x), trim(y), "aaaa"] ! [ "a", "cd", "aaaa" ] should catch first error
end program array_char