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

(This part was missing in the r118852 / Wed Nov 15 10:13:16 2006 check in)

Browse Source 
2007-01-31  Tobias Burnus  <burnus@net-b.de>

        PR fortran/27588
        * gfortran.dg/char_bounds_check_fail_1.f90: Add test.

From-SVN: r121401
This commit is contained in:
Tobias Burnus 2007-01-31 11:23:53 +01:00 committed by Tobias Burnus
parent 9bce3c1cc4
commit 010dc0fdd0
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-01-31 Tobias Burnus <burnus@net-b.de>
PR fortran/27588
* gfortran.dg/char_bounds_check_fail_1.f90: Add test.
2007-01-31 Tobias Burnus <burnus@net-b.de> 2007-01-31 Tobias Burnus <burnus@net-b.de>
PR fortran/30520 PR fortran/30520

12
gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 Normal file
View File

@ -0,0 +1,12 @@
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Substring out of bounds check" }
! PR fortran/27588
program bound_check
character*10 zz
i = 2
j = i+9
zz(i:j) = 'abcdef'
print * , zz
end
! { dg-output "Substring out of bounds: upper bound exceeds string length.*at line 9)}