[Bug fortran/77583] ICE in pp_quoted_string, at pretty-print.c:966

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #4 from kargl at gcc dot gnu.org ---
(In reply to Manuel López-Ibáñez from comment #2)
> check_conflict is sometimes called with name = NULL and that is passed to
> %qs causing a crash.

Index: symbol.c
===================================================================
--- symbol.c    (revision 240140)
+++ symbol.c    (working copy)
@@ -473,8 +473,8 @@ check_conflict (symbol_attribute *attr, 
        }
     }

-  if (attr->dummy && ((attr->function || attr->subroutine) && 
-                       gfc_current_state () == COMP_CONTAINS))
+  if (name && attr->dummy && ((attr->function || attr->subroutine)
+                             && gfc_current_state () == COMP_CONTAINS))
     gfc_error_now ("internal procedure %qs at %L conflicts with "
                   "DUMMY argument", name, where);