http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51945
--- Comment #6 from janus at gcc dot gnu.org --- Btw, here is a variant which triggers an internal error similar to comment 3, but already with a clean trunk: type t integer :: i = 3 end type t type my_t integer :: i = t() end type type(my_t) :: a end