flang/test/HLFIR/dummy_deallocation.f90

   1 ! RUN: bbc -emit-fir -hlfir %s -o - | FileCheck %s
   2 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
   3
   4 ! Test that the intent(out) allocatable dummy argument
   5 ! is not deallocated in entry SUB_B.
   6
   7 ! CHECK-LABEL: func.func @_QPsub_a
   8 ! CHECK: fir.freemem
   9
  10 ! CHECK-LABEL: func.func @_QPsub_b
  11 ! CHECK-NOT: fir.freemem
  12 SUBROUTINE SUB_A(A)
  13   INTEGER, INTENT(out), ALLOCATABLE, DIMENSION (:) :: A
  14   RETURN
  15   ENTRY SUB_B
  16 END SUBROUTINE SUB_A