https://gcc.gnu.org/g:bac80b5172231ab2261e353d49ddea36bffa96ea
commit bac80b5172231ab2261e353d49ddea36bffa96ea Author: Mikael Morin <[email protected]> Date: Mon Sep 28 15:05:14 2026 +0200 Correction régression c_funloc_tests_8 Diff: --- gcc/fortran/check.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/check.cc b/gcc/fortran/check.cc index 7ef12d23331e..14cae2df23e9 100644 --- a/gcc/fortran/check.cc +++ b/gcc/fortran/check.cc @@ -6462,7 +6462,7 @@ gfc_check_c_funloc (gfc_expr *x) attr = gfc_expr_attr (x); - if (attr.function && !attr.proc_pointer && x->expr_type == EXPR_VARIABLE + if (!attr.proc_pointer && x->expr_type == EXPR_VARIABLE && x->symtree->n.sym == x->symtree->n.sym->result) for (gfc_namespace *ns = gfc_current_ns; ns; ns = ns->parent) if (x->symtree->n.sym == ns->proc_name)
