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
This commit is contained in:
parent
de34320fba
commit
63ac625170
|
@ -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>
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue