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