1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2type :: hasPointer 3 class(*), pointer :: sp 4end type 5type :: hasAllocatable 6 class(*), allocatable :: sa 7end type 8type(hasPointer) hp 9type(hasAllocatable) ha 10!CHECK: hp=haspointer(sp=NULL()) 11hp = hasPointer() 12!CHECK: ha=hasallocatable(sa=NULL()) 13ha = hasAllocatable() 14end 15 16