gcc/testsuite/gfortran.dg/pr77612.f90

   1 ! { dg-do compile }
   2
   3 program bad_len
   4
   5   implicit none
   6
   7 contains
   8
   9   subroutine sub
  10     character(len = ICE) :: line ! { dg-error "INTEGER expression expected" }
  11   end subroutine
  12
  13 end program