34 lines · plain
1!RUN: bbc --dump-symbols %s | FileCheck %s2!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s3 4module m15 type base6 contains7 procedure :: wf => wf18 generic :: write(formatted) => wf9 end type10 type, extends(base) :: extended11 contains12 procedure :: wf => wf213 end type14 contains15 subroutine wf1(x,u,iot,v,iostat,iomsg)16 class(base), intent(in) :: x17 integer, intent(in) :: u18 character(len=*), intent(in) :: iot19 integer, intent(in) :: v(:)20 integer, intent(out) :: iostat21 character(len=*), intent(inout) :: iomsg22 end subroutine23 subroutine wf2(x,u,iot,v,iostat,iomsg)24 class(extended), intent(in) :: x25 integer, intent(in) :: u26 character(len=*), intent(in) :: iot27 integer, intent(in) :: v(:)28 integer, intent(out) :: iostat29 character(len=*), intent(inout) :: iomsg30 end subroutine31end module32!CHECK: .s.base, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(specialbinding) shape: 0_8:0_8 init:[specialbinding::specialbinding(which=5_1,isargdescriptorset=1_1,istypebound=1_1,specialcaseflag=0_1,proc=wf1)]33!CHECK: .s.extended, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(specialbinding) shape: 0_8:0_8 init:[specialbinding::specialbinding(which=5_1,isargdescriptorset=1_1,istypebound=1_1,specialcaseflag=0_1,proc=wf2)]34