13 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s2 3!CHECK-LABEL: func @_QPtest14subroutine test1(a)5integer :: a(:,:)6!CHECK: hlfir.destroy7!CHECK: omp.parallel if8!$omp parallel if(any(a .eq. 1))9!CHECK-NOT: hlfir.destroy10 print *, "Hello"11!$omp end parallel12end subroutine13