2 /* { dg-additional-options "-w" } */
4 /* Test reductions on explicitly private variables. */
14 for (i
= 0; i
< 10; i
++)
17 #pragma acc parallel copyout(red)
19 #pragma acc loop gang private(v)
20 for (j
= 0; j
< 10; j
++)
24 #pragma acc loop vector reduction (+:v)
25 for (i
= 0; i
< 100; i
++)
32 for (i
= 0; i
< 10; i
++)
33 assert (red
[i
] == i
+ 100);