7 int d
= omp_get_default_device ();
8 int id
= omp_get_initial_device ();
12 if (d
< 0 || d
>= omp_get_num_devices ())
15 p
= omp_target_alloc (128 * sizeof (int), d
);
19 #pragma omp target is_device_ptr (p) if (d >= 0) device (d >= 0 ? d : 0)
21 int i
, *q
= (int *) p
;
22 for (i
= 0; i
< 128; i
++)
25 #pragma omp target is_device_ptr (p) if (d >= 0) device (d >= 0 ? d : 0) map(from:err)
29 for (i
= 0; i
< 128; i
++)
30 if (((int *) p
)[i
] != i
+ 7)
36 omp_target_free (p
, d
);