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)
