3 /* Test of gang-private variables declared on loop directive, with broadcasting
4 to partitioned vectors. */
7 main (int argc
, char* argv
[])
9 int x
= 5, i
, arr
[32 * 32];
11 for (i
= 0; i
< 32 * 32; i
++)
14 #pragma acc kernels copy(arr)
16 #pragma acc loop gang(num:32) private(x)
17 for (i
= 0; i
< 32; i
++)
21 #pragma acc loop vector(length:32)
22 for (int j
= 0; j
< 32; j
++)
27 for (i
= 0; i
< 32 * 32; i
++)
28 assert (arr
[i
] == i
+ (i
/ 32) * 2);