diff options
| author | Steve Kargl <kargl@gcc.gnu.org> | 2022-12-12 21:11:07 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2022-12-13 19:08:23 +0100 |
| commit | 531ca06c007d4c4d156637083dcad7f25ac8713d (patch) | |
| tree | 26dea60f73957d7a7b559a542d037bb8dee2cebb /gcc/fortran/parse.cc | |
| parent | 69ec1e2065ac43eea44fdfa703cf027ce72a62da (diff) | |
| download | gcc-531ca06c007d4c4d156637083dcad7f25ac8713d.zip gcc-531ca06c007d4c4d156637083dcad7f25ac8713d.tar.gz gcc-531ca06c007d4c4d156637083dcad7f25ac8713d.tar.bz2 | |
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.
Diffstat (limited to 'gcc/fortran/parse.cc')
| -rw-r--r-- | gcc/fortran/parse.cc | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |