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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 3 |
2 files changed, 10 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cf406eb..7bb3bbc 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,7 +1,14 @@ 2016-12-17 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/78239 - * decl.c(char_len_param_value): Also check for -fimplicit-none + * decl.c (char_len_param_value): Actually commit + previous change. + + +2016-12-17 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/78239 + * decl.c( char_len_param_value): Also check for -fimplicit-none when determining if implicit none is in force. 2016-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> 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); |