[Bug fortran/121466] [15/16 Regression] Type mismatch, passing global function (Regression gfortran 15.1)

[dml2011 at free dot fr]

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

--- Comment #2 from dml2011 at free dot fr ---
(In reply to kargls from comment #1)
> Works for me of amf64-*-freebsd.
> 
> Have you tried splitting the file into 3 files (one for each
> program unit)?

I did not try that this small example. However, in another code, it is split
into 2 files:
- The main including the contains
- The module

The same error occurs.