| !RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s | |
| !CHECK-LABEL: func @_QPtest1 | |
| subroutine test1(a) | |
| integer :: a(:,:) | |
| !CHECK: hlfir.destroy | |
| !CHECK: omp.parallel if | |
| !$omp parallel if(any(a .eq. 1)) | |
| !CHECK-NOT: hlfir.destroy | |
| print *, "Hello" | |
| !$omp end parallel | |
| end subroutine |