diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2016-12-17 17:03:49 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2016-12-17 17:03:49 +0000 |
| commit | 63ac625170fb144df1c58c0475a5ac8c60005ea1 (patch) | |
| tree | 7e3f7585f33d4557db7170951b9666794af877c1 /gcc/fortran/decl.c | |
| parent | de34320fba5d3405e2790ebd86730682b81933c6 (diff) | |
| download | gcc-63ac625170fb144df1c58c0475a5ac8c60005ea1.zip gcc-63ac625170fb144df1c58c0475a5ac8c60005ea1.tar.gz gcc-63ac625170fb144df1c58c0475a5ac8c60005ea1.tar.bz2 | |
re PR fortran/78239 (ICE in char_len_param_value, at fortran/decl.c:926, with -fimplicit-none)
2016-12-17 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/78239
* decl.c (char_len_param_value): Actually commit
previous change.
From-SVN: r243776
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index c8adedb..aca3218 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -922,7 +922,8 @@ char_len_param_value (gfc_expr **expr, bool *deferred) if (!t && e->ts.type == BT_UNKNOWN && e->symtree->n.sym->attr.untyped == 1 - && (e->symtree->n.sym->ns->seen_implicit_none == 1 + && (flag_implicit_none + || e->symtree->n.sym->ns->seen_implicit_none == 1 || e->symtree->n.sym->ns->parent->seen_implicit_none == 1)) { gfc_free_expr (e); |