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>
|
2016-12-17 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/78239
|
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.
|
when determining if implicit none is in force.
|
||||||
|
|
||||||
2016-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
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
|
if (!t && e->ts.type == BT_UNKNOWN
|
||||||
&& e->symtree->n.sym->attr.untyped == 1
|
&& 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))
|
|| e->symtree->n.sym->ns->parent->seen_implicit_none == 1))
|
||||||
{
|
{
|
||||||
gfc_free_expr (e);
|
gfc_free_expr (e);
|
||||||
|
|
Loading…
Reference in New Issue