[Bug fortran/124652] passing a procedure pointer to c_funloc gives incorrect result

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124652

--- Comment #10 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Harald Anlauf <anlauf@gcc.gnu.org>:

https://gcc.gnu.org/g:ae9b5fc970cd4c5709e03ea90d1031b0426a4964

commit r16-8444-gae9b5fc970cd4c5709e03ea90d1031b0426a4964
Author: Harald Anlauf <anlauf@gmx.de>
Date:   Wed Apr 1 22:28:02 2026 +0200

    Fortran: fix passing a procedure pointer to c_funloc [PR124652]

            PR fortran/124652

    gcc/fortran/ChangeLog:

            * trans-expr.cc (gfc_conv_procedure_call): Do not clobber a
            procedure pointer intent(out) argument.
            * trans-intrinsic.cc (conv_isocbinding_function): When passing to
            C_FUNLOC a procedure pointer that is a dummy, dereference it.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/c_funloc_tests_10.f90: New test.