16 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2type :: hasPointer3 class(*), pointer :: sp4end type5type :: hasAllocatable6 class(*), allocatable :: sa7end type8type(hasPointer) hp9type(hasAllocatable) ha10!CHECK: hp=haspointer(sp=NULL())11hp = hasPointer()12!CHECK: ha=hasallocatable(sa=NULL())13ha = hasAllocatable()14end15 16