blob: 04a6dd585ab19ad887e361c7a75d5328349bf9d9 (
plain)
1
2
3
4
5
6
7
8
|
! { 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
|
