From 63ac625170fb144df1c58c0475a5ac8c60005ea1 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 17 Dec 2016 17:03:49 +0000 Subject: [PATCH] re PR fortran/78239 (ICE in char_len_param_value, at fortran/decl.c:926, with -fimplicit-none) 2016-12-17 Thomas Koenig PR fortran/78239 * decl.c (char_len_param_value): Actually commit previous change. From-SVN: r243776 --- gcc/fortran/ChangeLog | 9 ++++++++- gcc/fortran/decl.c | 3 ++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cf406eba3c8..7bb3bbc87da 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,7 +1,14 @@ 2016-12-17 Thomas Koenig 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 + + 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 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index c8adedb933e..aca32186229 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); -- 2.30.2