[Bug fortran/108528] New: [13 Regression] ICE in gfc_compare_array_spec(): Array spec clobbered

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 108528
           Summary: [13 Regression] ICE in gfc_compare_array_spec(): Array
                    spec clobbered
           Product: gcc
           Version: 13.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Started between 20221218 and 20230108 :


$ cat z1.f90
function f()
integer :: f((2.))
integer :: g((2))
entry g()
end


$ cat z2.f90
function f()
integer :: f(real(2))
integer :: g((2))
entry g()
end


$ gfortran-13-20230122 -c z1.f90
f951: internal compiler error: gfc_compare_array_spec(): Array spec clobbered
0x7c17e9 gfc_report_diagnostic
        ../../gcc/fortran/error.cc:883
0x7c3387 gfc_internal_error(char const*, ...)
        ../../gcc/fortran/error.cc:1503
0x78dda4 compare_bounds
        ../../gcc/fortran/array.cc:982
0x78f73c gfc_compare_array_spec(gfc_array_spec*, gfc_array_spec*)
        ../../gcc/fortran/array.cc:1026
0x8333ff resolve_entries
        ../../gcc/fortran/resolve.cc:799
0x8461ef resolve_types
        ../../gcc/fortran/resolve.cc:17531
0x84175c gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.cc:17662
0x8294d4 resolve_all_program_units
        ../../gcc/fortran/parse.cc:6656
0x8294d4 gfc_parse_file()
        ../../gcc/fortran/parse.cc:6912
0x8774bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:229