path: root/gcc/testsuite/gfortran.dg/pr70070.f90

! { 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