21 lines · plain
1!RUN: bbc --dump-symbols %s | FileCheck %s2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s3! test setting of isargdescriptorset in the runtime type info.4 5module m6 type :: sometype7 contains8 procedure :: copy => copy_impl9 generic :: assignment(=) => copy10 end type11interface12 subroutine copy_impl(this, x)13 import14 class(sometype), intent(out) :: this15 type(sometype), target, intent(in) :: x16 end subroutine17end interface18end module19 20!CHECK: .s.sometype, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(specialbinding) shape: 0_8:0_8 init:[specialbinding::specialbinding(which=1_1,isargdescriptorset=1_1,istypebound=1_1,specialcaseflag=0_1,proc=copy_impl)]21