1!RUN: bbc --dump-symbols %s | FileCheck %s 2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s 3 4!Tests that derived types with polymorphic potential subobject 5!components do not have their noFinalizationNeeded flags set, even 6!when those components are packaged within another allocatable. 7 8type t1 9 class(*), allocatable :: a 10end type 11type t2 12 type(t1), allocatable :: b 13end type 14type(t2) x 15end 16 17!CHECK: .dt.t2, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(derivedtype) init:derivedtype(binding=NULL(),name=.n.t2,sizeinbytes=40_8,uninstantiated=NULL(),kindparameter=NULL(),lenparameterkind=NULL(),component=.c.t2,procptr=NULL(),special=NULL(),specialbitset=0_4,hasparent=0_1,noinitializationneeded=0_1,nodestructionneeded=0_1,nofinalizationneeded=0_1) 18