| ! { dg-do compile } | |
| ! PR fortran/70070 - ICE on initializing character data beyond min/max bound | |
| program p | |
| character(1) :: a, b | |
| data (a(i:i),i=0,0) /1*'#'/ ! { dg-error "Substring start index" } | |
| data (b(i:i),i=2,3) /2*'#'/ ! { dg-error "Substring end index" } | |
| end |