18 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s2 3subroutine test1(a)4integer :: a(:)5 6!$omp parallel num_threads(count(a .eq. 1))7print *, "don't optimize me"8!$omp end parallel9end subroutine10 11! CHECK: %[[EXPR:.*]] = hlfir.elemental {{.*}} -> !hlfir.expr<?x!fir.logical<4>>12! CHECK: %[[COUNT:.*]] = hlfir.count %[[EXPR]]13! CHECK: omp.parallel num_threads(%[[COUNT]] : i32) {14! CHECK-NOT: hlfir.destroy %[[EXPR]]15! CHECK: omp.terminator16! CHECK: }17! CHECK: hlfir.destroy %[[EXPR]]18