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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|                            |2022-05-24
           Priority|P3                          |P4
     Ever confirmed|0                           |1
                 CC|                            |kargl at gcc dot gnu.org,
                   |                            |tkoenig at gcc dot gnu.org
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from kargl at gcc dot gnu.org ---
Null pointer dereference.

diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc
index 612c12d233d..f3549db5f98 100644
--- a/gcc/fortran/frontend-passes.cc
+++ b/gcc/fortran/frontend-passes.cc
@@ -3038,7 +3038,8 @@ do_intent (gfc_expr **e)
          do_sym = dl->ext.iterator->var->symtree->n.sym;

          if (a->expr && a->expr->symtree
-             && a->expr->symtree->n.sym == do_sym)
+             && a->expr->symtree->n.sym == do_sym
+             && f->sym)
            {
              if (f->sym->attr.intent == INTENT_OUT)
                gfc_error_now ("Variable %qs at %L set to undefined value "

Reply via email to