27 lines · plain
1! RUN: bbc -emit-hlfir -o - %s | FileCheck %s2 3! Test initialization and finalizations of dummy arguments in entry statements.4 5module m6 type t7 end type8contains9 subroutine test1(x)10 class(t), intent(out) :: x11 entry test1_entry()12 end subroutine13 subroutine test2(x)14 class(t), intent(out) :: x15 entry test2_entry(x)16 end subroutine17end module18! CHECK-LABEL: func.func @_QMmPtest1_entry(19! CHECK-NOT: Destroy20! CHECK-NOT: Initialize21! CHECK: return22 23! CHECK-LABEL: func.func @_QMmPtest2_entry(24! CHECK: Destroy25! CHECK: Initialize26! CHECK: return27