27 lines · plain
1!RUN: bbc --dump-symbols %s | FileCheck %s2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s3! Regression test for a crash (llvm-project/issues/79590)4module m5 type t(k1)6 integer,kind :: k17 end type8 type s(l1)9 integer,len :: l110 type(t(3)) :: t111 end type12end module13 14!CHECK: Module scope: m size=0 alignment=1 sourceRange=113 bytes15!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,nodefinedassignment=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: t121!CHECK: t, PUBLIC: DerivedType22!CHECK: DerivedType scope: t sourceRange=27 bytes23!CHECK: k1: TypeParam type:INTEGER(4) Kind24!CHECK: DerivedType scope: s size=0 alignment=1 sourceRange=43 bytes25!CHECK: l1: TypeParam type:INTEGER(4) Len26!CHECK: t1: ObjectEntity type: TYPE(t(k1=3_4))27