------- Additional Comments From pinskia at gcc dot gnu dot org 2005-03-15
22:30 -------
Hmm, is the following valid code because we get the same ICE here too:
module core
type :: T
character(len=*) :: s
end type T
private
CONTAINS
subroutine FOO(X)
type(T), intent(in) :: X
end subroutine
end module core-- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18990
