gcc/testsuite/gfortran.dg/pr77612.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! { dg-do compile }

program bad_len

  implicit none

contains

  subroutine sub
    character(len = ICE) :: line ! { dg-error "INTEGER expression expected" }
  end subroutine

end program