56 lines · plain
1! This test checks lowering of OpenMP masked taskloop Directive.2 3! RUN: bbc -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s4! RUN: %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s5 6! CHECK-LABEL: omp.private {type = private} 7! CHECK-SAME: @[[I_PRIVATE:.*]] : i328 9! CHECK-LABEL: omp.private 10! CHECK-SAME: {type = firstprivate} @[[J_FIRSTPRIVATE:.*]] : i32 11! CHECK-SAME: copy {12! CHECK: hlfir.assign 13 14! CHECK-LABEL: func.func @_QPtest_masked_taskloop() {15! CHECK: %[[VAL_0:.*]] = fir.dummy_scope : !fir.dscope16! CHECK: %[[ALLOCA_I:.*]] = fir.alloca i32 {bindc_name = "i", uniq_name = "_QFtest_masked_taskloopEi"}17! CHECK: %[[DECL_I:.*]]:2 = hlfir.declare %[[ALLOCA_I]] 18! CHECK-SAME: {uniq_name = "_QFtest_masked_taskloopEi"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)19! CHECK: %[[ALLOCA_J:.*]] = fir.address_of(@_QFtest_masked_taskloopEj) : !fir.ref<i32>20! CHECK: %[[DECL_J:.*]]:2 = hlfir.declare %[[ALLOCA_J]] {uniq_name = "_QFtest_masked_taskloopEj"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)21! CHECK: omp.masked {22! CHECK: %[[C1_I32:.*]] = arith.constant 1 : i3223! CHECK: %[[C10_I32:.*]] = arith.constant 10 : i3224! CHECK: %[[C1_I32_0:.*]] = arith.constant 1 : i3225! CHECK: omp.taskloop private(26! CHECK-SAME: @[[J_FIRSTPRIVATE]] %[[DECL_J]]#0 -> %[[ARG0:.*]], @[[I_PRIVATE]] %[[DECL_I]]#0 -> %[[ARG1:.*]] : !fir.ref<i32>, !fir.ref<i32>) {27! CHECK: omp.loop_nest (%arg2) : i32 = (%[[C1_I32]]) to (%[[C10_I32]]) inclusive step (%[[C1_I32_0]]) {28! CHECK: %[[VAL1:.*]]:2 = hlfir.declare %[[ARG0]] {uniq_name = "_QFtest_masked_taskloopEj"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)29! CHECK: %[[VAL2:.*]]:2 = hlfir.declare %[[ARG1]] {uniq_name = "_QFtest_masked_taskloopEi"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)30! CHECK: hlfir.assign %arg2 to %[[VAL2]]#0 : i32, !fir.ref<i32>31! CHECK: %[[LOAD_J:.*]] = fir.load %[[VAL1]]#0 : !fir.ref<i32>32! CHECK: %[[C1_I32_1:.*]] = arith.constant 1 : i3233! CHECK: %[[RES_J:.*]] = arith.addi %[[LOAD_J]], %[[C1_I32_1]] : i3234! CHECK: hlfir.assign %[[RES_J]] to %[[VAL1]]#0 : i32, !fir.ref<i32>35! CHECK: omp.yield36! CHECK: }37! CHECK: }38! CHECK: omp.terminator39! CHECK: }40! CHECK: return41! CHECK: }42! CHECK: fir.global internal @_QFtest_masked_taskloopEj : i32 {43! CHECK: %[[C1_I32:.*]] = arith.constant 1 : i3244! CHECK: fir.has_value %[[C1_I32]] : i3245! CHECK: }46 47 48subroutine test_masked_taskloop49 integer :: i, j = 150 !$omp masked taskloop51 do i=1,1052 j = j + 153 end do54 !$omp end masked taskloop 55end subroutine56