3 ! we used to ICE on these examples
6 character(len=I) :: str ! { dg-error "needs to be a constant specification expression" }
11 type(T), intent(in) :: X
17 character(len=*) :: s ! { dg-error "needs to be a constant specification expr" }
22 type(T), intent(in) :: X
24 end module another_core
26 ! { dg-final { cleanup-modules "core another_core" } }