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