https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124235
Bug ID: 124235
Summary: [16 Regression] ICE in ALLOCATE of sub-objects
Product: gcc
Version: 16.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: jvdelisle at gcc dot gnu.org
Target Milestone: ---
The following example compiles and runs with gcc version 15.2.1 20251221.
ICE on 16. This is from the Fujitsu test case 0264_0002.f90
TYPE TY0
INTEGER,ALLOCATABLE :: II(:)
TYPE(TY0), ALLOCATABLE :: NODE0(:)
TYPE(TY), ALLOCATABLE :: NODE4(:)
INTEGER :: JJ
TYPE(TY1),ALLOCATABLE :: NODE7(:)
END TYPE
TYPE TY1
INTEGER,ALLOCATABLE :: II(:)
TYPE(TY0) :: NODE2(4)
TYPE(TY1), ALLOCATABLE :: NODE1(:)
INTEGER :: JJ
TYPE(TY),ALLOCATABLE :: NODE5(:)
END TYPE
TYPE TY
INTEGER,ALLOCATABLE :: II(:)
TYPE(TY1) :: NODE3(4)
INTEGER :: JJ
TYPE(TY),ALLOCATABLE :: NODE6(:)
END TYPE
TYPE BASE
TYPE(TY),ALLOCATABLE :: OBJ(:)
TYPE(TY),ALLOCATABLE :: OBJ2(:)
END TYPE
TYPE(BASE):: OBJ_BASE
ALLOCATE(OBJ_BASE%OBJ(6)) ! Comment this and no ICE, segfault at run time
ALLOCATE(OBJ_BASE%OBJ(2)%NODE6(3))
END
