diff options
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 6cf7981..db913bf 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1828,8 +1828,7 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block *block) tmp = e->symtree->n.sym->ts.u.cl->backend_decl; } else if (e->symtree->n.sym->attr.function - && e->symtree->n.sym == e->symtree->n.sym->result - && e->symtree->n.sym == e->symtree->n.sym->ns->proc_name) + && e->symtree->n.sym == e->symtree->n.sym->result) { tmp = gfc_get_fake_result_decl (e->symtree->n.sym, 0); tmp = gfc_class_len_get (tmp); |