[Bug fortran/101564] ICE in resolve_allocate_deallocate, at fortran/resolve.c:8169

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
   Last reconfirmed|                            |2021-07-21
     Ever confirmed|0                           |1
                 CC|                            |kargl at gcc dot gnu.org
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from kargl at gcc dot gnu.org ---
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 45c3ad387ac..ce22d8644ea 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -8166,7 +8167,8 @@ resolve_allocate_deallocate (gfc_code *code, const char
*fcn)
                   "variable", &stat->where);

       for (p = code->ext.alloc.list; p; p = p->next)
-       if (p->expr->symtree->n.sym->name == stat->symtree->n.sym->name)
+       if (stat->symtree
+           && stat->symtree->n.sym->name == p->expr->symtree->n.sym->name)
          {
            gfc_ref *ref1, *ref2;
            bool found = true;