[Bug fortran/96013] ICE in write_symbol, at fortran/module.c:5747

[kargl at gcc dot gnu.org]

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);