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