[Bug fortran/91556] New: Severe regression with real types

[juergen.reuter at desy dot de]

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

            Bug ID: 91556
           Summary: Severe regression with real types
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: juergen.reuter at desy dot de
  Target Milestone: ---

Created attachment 46763
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=46763&action=edit
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)
muli_remnant.f90:2192:37:

 2192 |           call evolvePDF (x(1), q, f)
      |                                     1
Error: Type mismatch in argument '_formal_0' at (1); passed REAL(8) to REAL(16)
muli_remnant.f90:2199:34:

 2199 |        call evolvePDF (x(1), q, f)
      |                                  1
Error: Type mismatch in argument '_formal_0' at (1); passed REAL(8) to REAL(16)


I will cut this further down.