[Bug fortran/119669] New: [15 Regression] ICE in compare_parameter since r15-7449

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

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

            Bug ID: 119669
           Summary: [15 Regression] ICE in compare_parameter since
                    r15-7449
           Product: gcc
           Version: 15.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: jakub at gcc dot gnu.org
  Target Milestone: ---

Since r15-7449-ga8d0a2dd6565ea15ce79d8af90f2671cbf9359c7 the following testcase 
ICEs
cat rh2357847.f90
program a
  implicit real(a-h,o-z)
  external abstract_caller, caller, func
!  real func
  call abstract_caller (caller, func, 1.5)
  call abstract_caller (caller, func, 1.5)
end

function func (x)
  real func, x
  func = x * x - 1.
end
./f951.r15-7449 -quiet rh2357847.f90
f951.r15-7449: internal compiler error: in compare_parameter, at
fortran/interface.cc:2521
0x2d2466b internal_error(char const*, ...)
        ../../gcc/diagnostic-global-context.cc:517
0x2cf3e37 fancy_abort(char const*, int, char const*)
        ../../gcc/diagnostic.cc:1722
0x46df56 compare_parameter
        ../../gcc/fortran/interface.cc:2521