diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-08 18:09:05 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-08 18:09:05 +0000 |
| commit | 4874b4d26c3ae78b69a51ab490bfba65d69e1323 (patch) | |
| tree | 814a62bcd329a87fae9e3dad0f0e310a5bbba28b /gcc/fortran/parse.c | |
| parent | 47e1596cc1e877485483de1eca7b3eb4bd049cfb (diff) | |
| download | gcc-4874b4d26c3ae78b69a51ab490bfba65d69e1323.zip gcc-4874b4d26c3ae78b69a51ab490bfba65d69e1323.tar.gz gcc-4874b4d26c3ae78b69a51ab490bfba65d69e1323.tar.bz2 | |
re PR fortran/88357 (ICE in parse_associate, at fortran/parse.c:4568)
2018-12-08 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88357
* class.c (insert_component_ref): Check for NULL pointer and
previous error message issued.
* parse.c (parse_associate): Check for NULL pointer.
* resolve.c (resolve_assoc_var): Check for NULL pointer.
2018-12-08 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/pr88357_1.f90: New test.
* gfortran.dg/pr88357_2.f90: New test.
From-SVN: r266908
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 56d0d05..7acd8cf 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -4563,7 +4563,7 @@ parse_associate (void) else rank = a->target->rank; /* When the rank is greater than zero then sym will be an array. */ - if (sym->ts.type == BT_CLASS) + if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)) { if ((!CLASS_DATA (sym)->as && rank != 0) || (CLASS_DATA (sym)->as |