| ! RUN: bbc -emit-fir %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 |