1!RUN: bbc --dump-symbols %s | FileCheck %s 2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s 3! Regression test for a crash (llvm-project/issues/79590) 4module m 5 type t(k1) 6 integer,kind :: k1 7 end type 8 type s(l1) 9 integer,len :: l1 10 type(t(3)) :: t1 11 end type 12end module 13 14!CHECK: Module scope: m size=0 alignment=1 sourceRange=113 bytes 15!CHECK: .c.s, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(component) shape: 0_8:0_8 init:[component::component(name=.n.t1,genre=1_1,category=6_1,kind=0_1,rank=0_1,offset=0_8,characterlen=value(genre=1_1,value=0_8),lenvalue=NULL(),bounds=NULL(),initialization=NULL())] 16!CHECK: .dt.s, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(derivedtype) init:derivedtype(binding=NULL(),name=.n.s,sizeinbytes=0_8,uninstantiated=NULL(),kindparameter=NULL(),lenparameterkind=.lpk.s,component=.c.s,procptr=NULL(),special=NULL(),specialbitset=0_4,hasparent=0_1,noinitializationneeded=1_1,nodestructionneeded=1_1,nofinalizationneeded=1_1) 17!CHECK: .lpk.s, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: INTEGER(1) shape: 0_8:0_8 init:[INTEGER(1)::4_1] 18!CHECK: .n.s, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: CHARACTER(1_8,1) init:"s" 19!CHECK: .n.t1, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: CHARACTER(2_8,1) init:"t1" 20!CHECK: s, PUBLIC: DerivedType components: t1 21!CHECK: t, PUBLIC: DerivedType 22!CHECK: DerivedType scope: t sourceRange=27 bytes 23!CHECK: k1: TypeParam type:INTEGER(4) Kind 24!CHECK: DerivedType scope: s size=0 alignment=1 sourceRange=43 bytes 25!CHECK: l1: TypeParam type:INTEGER(4) Len 26!CHECK: t1: ObjectEntity type: TYPE(t(k1=3_4)) 27