diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-09-29 20:11:53 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-09-30 20:09:51 +0200 |
| commit | f653f612a95ab9d54e005fba7ac6bb40ec14ffb9 (patch) | |
| tree | f604630e901eccc53aefcfd0e9b600cd7741cf8a /gcc/fortran/array.c | |
| parent | a345847f1df9e701e54ec7f87b63e6389de1a828 (diff) | |
| download | gcc-f653f612a95ab9d54e005fba7ac6bb40ec14ffb9.zip gcc-f653f612a95ab9d54e005fba7ac6bb40ec14ffb9.tar.gz gcc-f653f612a95ab9d54e005fba7ac6bb40ec14ffb9.tar.bz2 | |
Fortran: fix error recovery for invalid constructor
gcc/fortran/ChangeLog:
PR fortran/102520
* array.c (expand_constructor): Do not dereference NULL pointer.
gcc/testsuite/ChangeLog:
PR fortran/102520
* gfortran.dg/pr102520.f90: New test.
(cherry picked from commit 5e2adfeed21ee584a82cdcdfa7eed41202eb67cd)
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 471523f..e5ce332 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1798,6 +1798,9 @@ expand_constructor (gfc_constructor_base base) e = c->expr; + if (e == NULL) + return false; + if (empty_constructor) empty_ts = e->ts; |