diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3d40c9a..0b87006 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2019-09-28 Jerry DeLisle <jvdelisle@gcc.ngu.org> + + PR fortran/91802 + * decl.c (attr_decl1): Return MATCH_ERROR without free to avoid + bad expression type in free_expr0() ICE in rank+corank check. + 2019-09-28 Steven G. Kargl <kargl@gcc.ngu.org> PR fortran/91802 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 31b2336..b6add1c 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -8474,7 +8474,7 @@ attr_decl1 (void) { gfc_error ("rank + corank of %qs exceeds 15 at %C", sym->name); m = MATCH_ERROR; - goto cleanup; + return m; } if (sym->attr.cray_pointee && sym->as != NULL) |