1 ! Test of worker-private variables declared on a loop directive, broadcasting
2 ! to vector-partitioned mode. Aggregate worker variable.
11 integer :: i
, j
, k
, idx
, arr(0:32*32*32)
18 !$acc kernels copy(arr)
19 !$acc loop gang(num:32)
21 !$acc loop worker(num:8) private(pt)
26 !$acc loop vector(length:32)
28 arr(i
* 1024 + j
* 32 + k
) = arr(i
* 1024 + j
* 32 + k
) + pt
%x
* k
31 !$acc loop vector(length:32)
33 arr(i
* 1024 + j
* 32 + k
) = arr(i
* 1024 + j
* 32 + k
) + pt
%y
* k
42 idx
= i
* 1024 + j
* 32 + k
43 if (arr(idx
) .ne
. idx
+ ieor(i
, j
* 3) * k
+ ior(i
, j
* 5) * k
) then