OSDN Git Service

2010-07-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / char_bounds_check_fail_1.f90
1 ! { dg-do run }
2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Substring out of bounds check" }
4 ! PR fortran/27588
5 program bound_check
6       character*10 zz
7       i = 2
8       j = i+9
9       zz = ' '
10       zz(i:j) = 'abcdef'
11       print * , zz
12       end
13 ! { dg-output "Substring out of bounds: upper bound exceeds string length.*at line 9)" }