diff options
| -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); |