From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
 id C72913858D28; Tue, 18 Jan 2022 14:49:43 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org C72913858D28
From: "vivekrao4 at yahoo dot com" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/104096] New: ICE with parameterized derived type (PDT)
Date: Tue, 18 Jan 2022 14:49:43 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: new
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: unknown
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: vivekrao4 at yahoo dot com
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status
 bug_severity priority component assigned_to reporter target_milestone
Message-ID: <bug-104096-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-BeenThere: gcc-bugs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-bugs mailing list <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Tue, 18 Jan 2022 14:49:43 -0000

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

            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=20
implicit none
type :: t(n)=20
  integer, len :: n =3D 0
  integer :: vec(n)
end type t
contains
subroutine disp(dt)
type(t(n=3D*)), intent(in) :: dt
print*,dt%vec
end subroutine disp
end module m
!
program main
use m, only: t, disp
implicit none
integer, parameter :: n =3D 3
type(t(n)) :: x
x%vec =3D [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 clobber=
ed
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_arglis=
t*,
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.=