| ! Test lowering of deviceptr clause. |
| ! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s |
| |
| subroutine test (a, b, n) |
| real(8) :: a(:), b(:) |
| !$acc parallel loop deviceptr(a,b) |
| do i = 1,n |
| a(i) = b(i) |
| enddo |
| end subroutine |
| ! CHECK-LABEL: func.func @_QPtest( |
| ! CHECK: %[[DECLARE_0:.*]]:2 = hlfir.declare {{.*}}"_QFtestEa" |
| ! CHECK: %[[DECLARE_1:.*]]:2 = hlfir.declare {{.*}}"_QFtestEb" |
| ! CHECK: %[[DEVICEPTR_0:.*]] = acc.deviceptr var(%[[DECLARE_0]]#0 : !fir.box<!fir.array<?xf64>>) -> !fir.box<!fir.array<?xf64>> {name = "a"} |
| ! CHECK: %[[DEVICEPTR_1:.*]] = acc.deviceptr var(%[[DECLARE_1]]#0 : !fir.box<!fir.array<?xf64>>) -> !fir.box<!fir.array<?xf64>> {name = "b"} |
| ! CHECK: acc.parallel combined(loop) dataOperands(%[[DEVICEPTR_0]], %[[DEVICEPTR_1]] : !fir.box<!fir.array<?xf64>>, !fir.box<!fir.array<?xf64>>) { |
| ! CHECK: %[[DECLARE_4:.*]]:2 = hlfir.declare %[[DEVICEPTR_0]] |
| ! CHECK: %[[DECLARE_5:.*]]:2 = hlfir.declare %[[DEVICEPTR_1]] |
| ! CHECK: acc.loop combined(parallel) |
| ! CHECK: hlfir.designate %[[DECLARE_5]]#0 |
| ! CHECK: hlfir.designate %[[DECLARE_4]]#0 |
