From c75cbeba81e5b4737a9ab7dd28cce650965535a9 Mon Sep 17 00:00:00 2001 From: Steve Kargl Date: Wed, 15 Feb 2023 22:40:37 +0100 Subject: Fortran: error recovery on checking procedure argument intent [PR103608] gcc/fortran/ChangeLog: PR fortran/103608 * frontend-passes.cc (do_intent): Catch NULL pointer dereference on reference to invalid formal argument. gcc/testsuite/ChangeLog: PR fortran/103608 * gfortran.dg/pr103608.f90: New test. --- gcc/fortran/frontend-passes.cc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/frontend-passes.cc') diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc index 1cbc630..02fcb41 100644 --- a/gcc/fortran/frontend-passes.cc +++ b/gcc/fortran/frontend-passes.cc @@ -3049,7 +3049,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 " -- cgit v1.1