[Bug fortran/104096] New: ICE with parameterized derived type (PDT)

["vivekrao4 at yahoo dot com" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 104096
           Summary: ICE with parameterized derived type (PDT)
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: vivekrao4 at yahoo dot com
  Target Milestone: ---

gfortran-11 --version
GNU Fortran (Ubuntu 11.1.0-1ubuntu1~20.04) 11.1.0
<snip>

(base) /mnt/c/fortran/test$ cat pdt_sub.f90
module m 
implicit none
type :: t(n) 
  integer, len :: n = 0
  integer :: vec(n)
end type t
contains
subroutine disp(dt)
type(t(n=*)), intent(in) :: dt
print*,dt%vec
end subroutine disp
end module m
!
program main
use m, only: t, disp
implicit none
integer, parameter :: n = 3
type(t(n)) :: x
x%vec = [1,4,9]
print*,x%vec
call disp(x)
end program main

(base) /mnt/c/fortran/test$ gfortran-11 pdt_sub.f90
f951: internal compiler error: gfc_compare_array_spec(): Array spec clobbered
0x14f8018 gfc_internal_error(char const*, ...)
        ???:0
0x14a723b gfc_compare_array_spec(gfc_array_spec*, gfc_array_spec*)
        ???:0
0x14fb98a gfc_compare_derived_types(gfc_symbol*, gfc_symbol*)
        ???:0
0x15014b0 gfc_compare_actual_formal(gfc_actual_arglist**, gfc_formal_arglist*,
int, int, bool, locus*)
        ???:0
0x150283b gfc_procedure_use(gfc_symbol*, gfc_actual_arglist**, locus*)
        ???:0
0x1591c97 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ???:0
0x1572ad1 gfc_parse_file()
        ???:0
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <file:///usr/share/doc/gcc-11/README.Bugs> for instructions.