http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47730
--- Comment #2 from janus at gcc dot gnu.org 2011-02-14 10:27:23 UTC ---
(In reply to comment #0)
> It seems related to bug #46849
Yes, in particular to comment #2 in that PR:
module m
implicit none
type :: dt
end type
contains
subroutine test(fun)
class(dt) :: fun
call extern(not_existing) ! Error: No implicit type
select type (fun)
type is (dt) ! TYPE IS is required for the ICE
end select
end subroutine test
end module m
which gives:
call extern(not_existing) ! Error: No implicit type
1
Error: Symbol 'not_existing' at (1) has no IMPLICIT type
f951: internal compiler error: in gfc_enforce_clean_symbol_state, at
fortran/symbol.c:3426
Same pattern: Some error, and afterwards an ICE in
'gfc_enforce_clean_symbol_state'.
