1 ! Test of worker-private variables declared on a loop directive, broadcasting
2 ! to vector-partitioned mode. Addressable worker variable.
7 integer :: i
, j
, k
, idx
, arr(0:32*32*32)
15 !$acc kernels copy(arr)
16 !$acc loop gang(num:32)
18 !$acc loop worker(num:8) private(x, p)
23 !$acc loop vector(length:32)
25 arr(i
* 1024 + j
* 32 + k
) = arr(i
* 1024 + j
* 32 + k
) + x
* k
30 !$acc loop vector(length:32)
32 arr(i
* 1024 + j
* 32 + k
) = arr(i
* 1024 + j
* 32 + k
) + x
* k
41 idx
= i
* 1024 + j
* 32 + k
42 if (arr(idx
) .ne
. idx
+ ieor(i
, j
* 3) * k
+ ior(i
, j
* 5) * k
) then