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)}