From 531ca06c007d4c4d156637083dcad7f25ac8713d Mon Sep 17 00:00:00 2001 From: Steve Kargl Date: Mon, 12 Dec 2022 21:11:07 +0100 Subject: Fortran: NULL pointer dereference while parsing a function [PR107423] gcc/fortran/ChangeLog: PR fortran/107423 * parse.cc (parse_spec): Avoid NULL pointer dereference when parsing a function and an error occured. gcc/testsuite/ChangeLog: PR fortran/107423 * gfortran.dg/pr107423.f90: New test. --- gcc/fortran/parse.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/parse.cc') diff --git a/gcc/fortran/parse.cc b/gcc/fortran/parse.cc index cdae43f..bc2b218 100644 --- a/gcc/fortran/parse.cc +++ b/gcc/fortran/parse.cc @@ -4015,7 +4015,7 @@ parse_spec (gfc_statement st) gfc_symbol* proc = gfc_current_ns->proc_name; gcc_assert (proc); - if (proc->result->ts.type == BT_UNKNOWN) + if (proc->result && proc->result->ts.type == BT_UNKNOWN) function_result_typed = true; } -- cgit v1.1