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