Subversion Repositories openrisc_2011-10-31

! { 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 = ' '

      zz(i:j) = 'abcdef'

      print * , zz

      end

! { dg-output "Substring out of bounds: upper bound exceeds string length.*at line 9)}