49 lines · plain
1! This test checks lowering of OpenMP parallel masked taskloop Directive.2 3! RUN: bbc -emit-hlfir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s4! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s5 6! CHECK-LABEL: omp.private {type = private} 7! CHECK-SAME: @[[I_PRIVATE:.*]] : i328! CHECK-LABEL: func.func @_QPtest_parallel_master_taskloop() {9! CHECK: %[[VAL0:.*]] = fir.dummy_scope : !fir.dscope10! CHECK: %[[ALLOCA_I:.*]] = fir.alloca i32 {bindc_name = "i", uniq_name = "_QFtest_parallel_master_taskloopEi"}11! CHECK: %[[DECL_I:.*]]:2 = hlfir.declare %[[ALLOCA_I]] {uniq_name = "_QFtest_parallel_master_taskloopEi"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)12! CHECK: %[[ADDR_J:.*]] = fir.address_of(@_QFtest_parallel_master_taskloopEj) : !fir.ref<i32>13! CHECK: %[[DECL_J:.*]]:2 = hlfir.declare %[[ADDR_J]] {uniq_name = "_QFtest_parallel_master_taskloopEj"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)14! CHECK: omp.parallel {15! CHECK: omp.masked {16! CHECK: %[[C1_I32:.*]] = arith.constant 1 : i3217! CHECK: %[[C10_I32:.*]] = arith.constant 10 : i3218! CHECK: %[[C1_I32_0:.*]] = arith.constant 1 : i3219! CHECK: omp.taskloop private(@[[I_PRIVATE]] %[[DECL_I]]#0 -> %[[ARG0:.*]] : !fir.ref<i32>) {20! CHECK: omp.loop_nest (%[[ARG1:.*]]) : i32 = (%[[C1_I32]]) to (%[[C10_I32]]) inclusive step (%c1_i32_0) {21! CHECK: %[[VAL1:.*]]:2 = hlfir.declare %[[ARG0]] {uniq_name = "_QFtest_parallel_master_taskloopEi"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)22! CHECK: hlfir.assign %[[ARG1]] to %[[VAL1]]#0 : i32, !fir.ref<i32>23! CHECK: %[[LOAD_J:.*]] = fir.load %[[DECL_J]]#0 : !fir.ref<i32>24! CHECK: %c1_i32_1 = arith.constant 1 : i3225! CHECK: %[[RES_ADD:.*]] = arith.addi %[[LOAD_J]], %c1_i32_1 : i3226! CHECK: hlfir.assign %[[RES_ADD]] to %[[DECL_J]]#0 : i32, !fir.ref<i32>27! CHECK: omp.yield28! CHECK: }29! CHECK: }30! CHECK: omp.terminator31! CHECK: }32! CHECK: omp.terminator33! CHECK: }34! CHECK: return35! CHECK: }36! CHECK: fir.global internal @_QFtest_parallel_master_taskloopEj : i32 {37! CHECK: %[[C1_I32:.*]] = arith.constant 1 : i3238! CHECK: fir.has_value %[[C1_I32]] : i3239! CHECK: }40 41subroutine test_parallel_master_taskloop42 integer :: i, j = 143 !$omp parallel masked taskloop44 do i=1,1045 j = j + 146 end do47 !$omp end parallel masked taskloop 48end subroutine49