diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2019-09-29 02:35:58 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2019-09-29 02:35:58 +0000 |
| commit | 59784d3851fccda86fcdf2cdee5a3c3ca231a2d3 (patch) | |
| tree | a9e67dc9cfa23080e095119adc81e6be98b2fe73 /gcc/fortran/decl.c | |
| parent | e834b8adb62210af17533345c97636a0fa0d7eea (diff) | |
| download | gcc-59784d3851fccda86fcdf2cdee5a3c3ca231a2d3.zip gcc-59784d3851fccda86fcdf2cdee5a3c3ca231a2d3.tar.gz gcc-59784d3851fccda86fcdf2cdee5a3c3ca231a2d3.tar.bz2 | |
re PR fortran/91802 (ICE in mio_name_expr_t, at fortran/module.c:2141)
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.
From-SVN: r276265
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) |