[Bug fortran/88139] ICE in get_c_type_name, at fortran/dump-parse-tree.c:3047

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88139

--- Comment #2 from kargl at gcc dot gnu.org ---
Index: gcc/fortran/dump-parse-tree.c
===================================================================
--- gcc/fortran/dump-parse-tree.c       (revision 266386)
+++ gcc/fortran/dump-parse-tree.c       (working copy)
@@ -3259,6 +3259,14 @@ write_proc (gfc_symbol *sym)
     {
       gfc_symbol *s;
       s = f->sym;
+
+      if (!s)
+       {
+         gfc_error_now ("At %L, \"Nous sommes tous nes pour le mal\"",
+                        &sym->declared_at);
+         return;
+       }
+
       rok = get_c_type_name (&(s->ts), NULL, &pre, &type_name, &asterisk,
                             &post, false);
       if (rok == T_ERROR)