diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index a04f0d6..9580180 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -4884,17 +4884,13 @@ gfc_check_c_funloc (gfc_expr *x) if (attr.function && !attr.proc_pointer && x->expr_type == EXPR_VARIABLE && x->symtree->n.sym == x->symtree->n.sym->result) - { - gfc_namespace *ns = gfc_current_ns; - - for (ns = gfc_current_ns; ns; ns = ns->parent) - if (x->symtree->n.sym == ns->proc_name) - { - gfc_error ("Function result %qs at %L is invalid as X argument " - "to C_FUNLOC", x->symtree->n.sym->name, &x->where); - return false; - } - } + for (gfc_namespace *ns = gfc_current_ns; ns; ns = ns->parent) + if (x->symtree->n.sym == ns->proc_name) + { + gfc_error ("Function result %qs at %L is invalid as X argument " + "to C_FUNLOC", x->symtree->n.sym->name, &x->where); + return false; + } if (attr.flavor != FL_PROCEDURE) { |