[Bug fortran/120355] [15 Regression] Type mismatch for passed external function, if external function appears in the same source file

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #5 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-15 branch has been updated by Thomas Koenig
<tkoe...@gcc.gnu.org>:

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

commit r15-9748-gd8e7a2dbe736a57e4cec0293387a1c558b5a155e
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date:   Fri May 30 13:31:58 2025 +0200

    Type mismatch for passed external function

    This obvious and simple patch fixes a 15/16 regression where the
    typespec of a global function was in the RESULT clause and not
    in the symbol itself.

    gcc/fortran/ChangeLog:

            PR fortran/120355
            * interface.cc (compare_parameter): If the global function has a
            result clause, take typespec from there for the comparison against
            the dummy argument.

    gcc/testsuite/ChangeLog:

            PR fortran/120355
            * gfortran.dg/interface_62.f90: New test.

    (cherry picked from commit 0e77309047a7b479c89f03dcaf2994e050d0f33e)