[Bug fortran/120355] [15/16 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 #3 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Thomas Koenig <tkoe...@gcc.gnu.org>:

https://gcc.gnu.org/g:0e77309047a7b479c89f03dcaf2994e050d0f33e

commit r16-1003-g0e77309047a7b479c89f03dcaf2994e050d0f33e
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.