http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54730
--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-09-27 21:43:23 UTC --- The ICE occurs at tree gfc_typenode_for_spec (gfc_typespec * spec) { tree basetype; switch (spec->type) { case BT_UNKNOWN: gcc_unreachable (); ... and disappears if "real(a = 1)" is replaced with "real(1)".