[Bug fortran/119049] New: Procedures are mishandled in -fc-prototypes-external

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

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

            Bug ID: 119049
           Summary: Procedures are mishandled in -fc-prototypes-external
           Product: gcc
           Version: 15.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: tkoenig at gcc dot gnu.org
  Target Milestone: ---

Original test case by Jürgen Bausa.

The following cases are mishandled with -fc-prototypes-external:

      SUBROUTINE FCN (JAC)
      EXTERNAL JAC
      INTEGER JAC
      PRINT *,JAC(52)
      END

gives

void fcn_ (int *jac);

and

      SUBROUTINE BAR(JAC)
      EXTERNAL JAC
      CALL JAC(42)
      END

gives an error:

bar.f:1:22:

    1 |       SUBROUTINE BAR(JAC)
      |                      1~~
Error: Cannot convert 'UNKNOWN' to interoperable type at (1)