17 lines · plain
1! RUN: bbc -emit-fir -hlfir %s -o - | FileCheck %s2! RUN: bbc -emit-fir %s -o - | FileCheck %s3 4! Test that the intent(out) allocatable dummy argument5! is not deallocated in entry SUB_B.6 7! CHECK-LABEL: func.func @_QPsub_a8! CHECK: fir.freemem9 10! CHECK-LABEL: func.func @_QPsub_b11! CHECK-NOT: fir.freemem12SUBROUTINE SUB_A(A)13 INTEGER, INTENT(out), ALLOCATABLE, DIMENSION (:) :: A14 RETURN15 ENTRY SUB_B16END SUBROUTINE SUB_A17