[Bug fortran/91556] Severe regression with real types

[juergen.reuter at desy dot de]

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

--- Comment #2 from Jürgen Reuter <juergen.reuter at desy dot de> ---
(In reply to kargl from comment #1)
> W(In reply to Jürgen Reuter from comment #0)
> > Created attachment 46763 [details]
> > Reproducer
> > 
> > This is a rather recent regression, failing with r274920, and it had been
> > still working with r274120. The compile error is:
> > gfortran  -c muli_remnant.f90
> > muli_remnant.f90:2186:34:
> > 
> >  2186 |        call evolvePDF (x(0), q, f)
> >       |                                  1
> > Error: Type mismatch in argument '_formal_0' at (1); passed REAL(8) to
> > REAL(16)
> 
> What are the declared types of x, q, and f?
> What are the types of the dummy arguments of
> evolvepdf()?

The code is attached.