[Bug fortran/122245] -fc-prototypes does not work with interfaces defined by a PROCEDURE statement

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

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

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

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

commit r17-555-gbe277865c4d2a820f9f43873b4dde8a6d78c494c
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date:   Sat May 16 16:37:57 2026 +0200

    PR 122245: -fc-prototypes when procedure defined via INTERFACE

    This simple patch emits correct prototypes when a procedure is
    defined via an interface by simply checking the presence
    of an interface and using its formal arglist.

    gcc/fortran/ChangeLog:

            PR fortran/122245
            * dump-parse-tree.cc (write_formal_arglist): Take the formal
            arglist from the symbol's interface if it is present.