diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-09-29 20:11:53 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-09-29 20:11:53 +0200 |
| commit | 5e2adfeed21ee584a82cdcdfa7eed41202eb67cd (patch) | |
| tree | 82d18a12bfb809e28780c9ab13875b82371fce43 /gcc/fortran/array.c | |
| parent | a672a2258256f331b658c97e2f68711b709fdbe8 (diff) | |
| download | gcc-5e2adfeed21ee584a82cdcdfa7eed41202eb67cd.zip gcc-5e2adfeed21ee584a82cdcdfa7eed41202eb67cd.tar.gz gcc-5e2adfeed21ee584a82cdcdfa7eed41202eb67cd.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.
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 b858bad..a4d1cb4 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; |