1!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s 2 3!CHECK-LABEL: func @_QPtest1 4subroutine test1(a) 5integer :: a(:,:) 6!CHECK: hlfir.destroy 7!CHECK: omp.parallel if 8!$omp parallel if(any(a .eq. 1)) 9!CHECK-NOT: hlfir.destroy 10 print *, "Hello" 11!$omp end parallel 12end subroutine 13