11 for (int i
= 0; i
< 32; i
++)
14 #pragma acc parallel num_gangs (32) copy (ok) firstprivate (val) copy(ary, ondev)
16 ondev
= acc_on_device (acc_device_not_host
);
17 #pragma acc loop gang(static:1)
18 for (unsigned i
= 0; i
< 32; i
++)
34 for (int i
= 0; i
< 32; i
++)
46 #pragma acc data copy(val)
48 #pragma acc parallel present (val)
53 #pragma acc parallel firstprivate (val) copy(ok)
71 int n
= acc_get_device_type () == acc_device_nvidia
? N
: 1;
74 for (i
= 0; i
< n
; i
++)
77 #pragma acc parallel num_gangs (n) firstprivate (a)
79 for (i
= 0; i
< n
; i
++)
85 for (i
= 0; i
< n
; i
++)
89 #pragma acc data copy (a)
91 #pragma acc parallel firstprivate (a) copyout (c)
97 /* This version of 'a' should still be 5. */
98 #pragma acc parallel copyout (d) present (a)
114 int x
= 5, i
, arr
[32];
116 for (i
= 0; i
< 32; i
++)
119 #pragma acc parallel firstprivate(x) copy(arr) num_gangs(32) num_workers(8) vector_length(32)
121 #pragma acc loop gang
122 for (i
= 0; i
< 32; i
++)
126 for (i
= 0; i
< 32; i
++)