58 lines · plain
1// RUN: fir-opt -split-input-file --openacc-legalize-data-values %s | FileCheck %s2 3func.func @_QPsub1(%arg0: !fir.ref<i32> {fir.bindc_name = "i"}) {4 %0:2 = hlfir.declare %arg0 {uniq_name = "_QFsub1Ei"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)5 %1 = acc.copyin varPtr(%0#0 : !fir.ref<i32>) -> !fir.ref<i32> {dataClause = #acc<data_clause acc_copy>, name = "i"}6 acc.parallel dataOperands(%1 : !fir.ref<i32>) {7 %c0_i32 = arith.constant 0 : i328 hlfir.assign %c0_i32 to %0#0 : i32, !fir.ref<i32>9 acc.yield10 }11 acc.copyout accPtr(%1 : !fir.ref<i32>) to varPtr(%0#0 : !fir.ref<i32>) {dataClause = #acc<data_clause acc_copy>, name = "i"}12 return13}14 15// CHECK-LABEL: func.func @_QPsub116// CHECK-SAME: (%[[ARG0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"})17// CHECK: %[[I:.*]]:2 = hlfir.declare %[[ARG0]] {uniq_name = "_QFsub1Ei"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)18// CHECK: %[[COPYIN:.*]] = acc.copyin varPtr(%[[I]]#0 : !fir.ref<i32>) -> !fir.ref<i32> {dataClause = #acc<data_clause acc_copy>, name = "i"}19// CHECK: acc.parallel dataOperands(%[[COPYIN]] : !fir.ref<i32>) {20// CHECK: %c0_i32 = arith.constant 0 : i3221// CHECK: hlfir.assign %c0{{.*}} to %[[COPYIN]] : i32, !fir.ref<i32>22// CHECK: acc.yield23// CHECK: }24// CHECK: acc.copyout accPtr(%[[COPYIN]] : !fir.ref<i32>) to varPtr(%[[I]]#0 : !fir.ref<i32>) {dataClause = #acc<data_clause acc_copy>, name = "i"}25 26// -----27 28func.func @_QPsub1(%arg0: !fir.ref<i32> {fir.bindc_name = "i"}) {29 %0:2 = hlfir.declare %arg0 {uniq_name = "_QFsub1Ei"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)30 %1 = acc.copyin varPtr(%0#0 : !fir.ref<i32>) -> !fir.ref<i32> {dataClause = #acc<data_clause acc_copy>, name = "i"}31 acc.data dataOperands(%1 : !fir.ref<i32>) {32 %c0_i32 = arith.constant 0 : i3233 hlfir.assign %c0_i32 to %0#0 : i32, !fir.ref<i32>34 acc.serial {35 hlfir.assign %c0_i32 to %0#0 : i32, !fir.ref<i32>36 acc.yield37 }38 acc.terminator39 }40 acc.copyout accPtr(%1 : !fir.ref<i32>) to varPtr(%0#0 : !fir.ref<i32>) {dataClause = #acc<data_clause acc_copy>, name = "i"}41 return42}43 44// CHECK-LABEL: func.func @_QPsub145// CHECK-SAME: (%[[ARG0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"})46// CHECK: %[[I:.*]]:2 = hlfir.declare %[[ARG0]] {uniq_name = "_QFsub1Ei"} : (!fir.ref<i32>) -> (!fir.ref<i32>, !fir.ref<i32>)47// CHECK: %[[COPYIN:.*]] = acc.copyin varPtr(%[[I]]#0 : !fir.ref<i32>) -> !fir.ref<i32> {dataClause = #acc<data_clause acc_copy>, name = "i"}48// CHECK: acc.data dataOperands(%[[COPYIN]] : !fir.ref<i32>) {49// CHECK: %[[C0:.*]] = arith.constant 0 : i3250// CHECK: hlfir.assign %[[C0]] to %0#0 : i32, !fir.ref<i32>51// CHECK: acc.serial {52// CHECK: hlfir.assign %[[C0]] to %[[COPYIN]] : i32, !fir.ref<i32>53// CHECK: acc.yield54// CHECK: }55// CHECK: acc.terminator56// CHECK: }57// CHECK: acc.copyout accPtr(%[[COPYIN]] : !fir.ref<i32>) to varPtr(%[[I]]#0 : !fir.ref<i32>) {dataClause = #acc<data_clause acc_copy>, name = "i"}58