! RUN: bbc -emit-fir -hlfir %s -o - | FileCheck %s
! RUN: bbc -emit-fir %s -o - | FileCheck %s

! Test that the intent(out) allocatable dummy argument
! is not deallocated in entry SUB_B.

! CHECK-LABEL: func.func @_QPsub_a
! CHECK: fir.freemem

! CHECK-LABEL: func.func @_QPsub_b
! CHECK-NOT: fir.freemem
SUBROUTINE SUB_A(A)
  INTEGER, INTENT(out), ALLOCATABLE, DIMENSION (:) :: A
  RETURN
  ENTRY SUB_B
END SUBROUTINE SUB_A