diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-09-16 17:55:38 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-09-16 17:55:38 +0000 |
| commit | 8d987deb5be9484c103d3a786590c84b54535813 (patch) | |
| tree | 479051f0bfcb474681d6d794d5fd09b133bafdb6 /gcc/fortran/decl.c | |
| parent | 426042f5f227944c12fbdfb597e078cfbcb1e13d (diff) | |
| download | gcc-8d987deb5be9484c103d3a786590c84b54535813.zip gcc-8d987deb5be9484c103d3a786590c84b54535813.tar.gz gcc-8d987deb5be9484c103d3a786590c84b54535813.tar.bz2 | |
re PR fortran/77612 (ICE on invalid character len in contained procedure)
2016-09-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77612
* decl.c (char_len_param_value): Check parent namespace for
seen_implicit_none.
2016-09-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77612
* gfortran.dg/pr77612.f90: New test.
From-SVN: r240191
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index b524239..c83e9d4 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -920,9 +920,10 @@ char_len_param_value (gfc_expr **expr, bool *deferred) t = gfc_reduce_init_expr (e); - if (!t && (e->ts.type == BT_UNKNOWN - && e->symtree->n.sym->attr.untyped == 1 - && e->symtree->n.sym->ns->seen_implicit_none == 1)) + if (!t && e->ts.type == BT_UNKNOWN + && e->symtree->n.sym->attr.untyped == 1 + && (e->symtree->n.sym->ns->seen_implicit_none == 1 + || e->symtree->n.sym->ns->parent->seen_implicit_none == 1)) { gfc_free_expr (e); goto syntax; |