2018-02-24 Steven G. Kargl <kargl@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gfortran.dg / data_substring.f90

! { dg-do compile }
! PR fortran/30792
character string*1025
integer i
data (string(i:i),i=1,1025)/1025*'?'/  ! { dg-error "Invalid substring" }
end