1 ! Test of vector-private variables declared on loop directive.
6 integer :: x
, i
, j
, k
, idx
, arr(0:32*32*32)
12 !$acc kernels copy(arr)
13 !$acc loop gang(num:32)
15 !$acc loop worker(num:8)
17 !$acc loop vector(length:32) private(x)
20 arr(i
* 1024 + j
* 32 + k
) = arr(i
* 1024 + j
* 32 + k
) + x
* k
22 !$acc loop vector(length:32) private(x)
25 arr(i
* 1024 + j
* 32 + k
) = arr(i
* 1024 + j
* 32 + k
) + x
* k
34 idx
= i
* 1024 + j
* 32 + k
35 if (arr(idx
) .ne
. idx
+ ieor(i
, j
* 3) * k
+ ior(i
, j
* 5) * k
) then