https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96013
kargl at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- Ever confirmed|0 |1 Status|UNCONFIRMED |NEW Last reconfirmed| |2020-06-30 Keywords|ice-on-valid-code |ice-on-invalid-code --- Comment #3 from kargl at gcc dot gnu.org --- The code is invalid. Patch against svn revision 280156. Index: gcc/fortran/module.c =================================================================== --- gcc/fortran/module.c (revision 280157) +++ gcc/fortran/module.c (working copy) @@ -5738,7 +5738,11 @@ write_symbol (int n, gfc_symbol *sym) const char *label; if (sym->attr.flavor == FL_UNKNOWN || sym->attr.flavor == FL_LABEL) - gfc_internal_error ("write_symbol(): bad module symbol %qs", sym->name); + { + gfc_error ("Invalid symbol %qs at %L", sym->name, + &sym->declared_at); + return; + } mio_integer (&n);