1 ! Test of gang-private variables declared on loop directive, with broadcasting
2 ! to partitioned workers.
7 integer :: x
, i
, j
, arr(0:32*32)
13 !$acc kernels copy(arr)
14 !$acc loop gang(num:32) private(x)
18 !$acc loop worker(num:32)
20 arr(i
* 32 + j
) = arr(i
* 32 + j
) + x
;
26 if (arr(i
) .ne
. i
+ (i
/ 32) * 2) call abort