xref: /llvm-project/flang/test/Semantics/typeinfo03.f90 (revision 27cf6ba1d7bc623a5dca5c0ae82af98d0cdfc390) 
1!RUN: bbc --dump-symbols %s | FileCheck %s
2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s
3!Ensure that type with pointer component(s) has "noinitializationneeded=0"
4module m
5  type hasPointer
6    class(*), pointer :: sp, ap(:)
7  end type
8end module
9!CHECK: .dt.haspointer, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(derivedtype) init:derivedtype(binding=NULL(),name=.n.haspointer,sizeinbytes=104_8,uninstantiated=NULL(),kindparameter=NULL(),lenparameterkind=NULL(),component=.c.haspointer,procptr=NULL(),special=NULL(),specialbitset=0_4,hasparent=0_1,noinitializationneeded=0_1,nodestructionneeded=1_1,nofinalizationneeded=1_1)
10