34 lines
517 B
C
34 lines
517 B
C
#include <assert.h>
|
|
#include <stdlib.h>
|
|
#include <openacc.h>
|
|
|
|
int
|
|
main ()
|
|
{
|
|
int n = 100, i;
|
|
int *a = (int *) malloc (sizeof (int) * n);
|
|
int *b;
|
|
|
|
for (i = 0; i < n; i++)
|
|
a[i] = i+1;
|
|
|
|
#pragma acc enter data copyin(a[:n]) create(b)
|
|
|
|
b = a;
|
|
acc_attach ((void **)&b);
|
|
|
|
#pragma acc parallel loop present (b[:n])
|
|
for (i = 0; i < n; i++)
|
|
b[i] = i+1;
|
|
|
|
acc_detach ((void **)&b);
|
|
|
|
#pragma acc exit data copyout(a[:n], b)
|
|
|
|
for (i = 0; i < 10; i++)
|
|
assert (a[i] == b[i]);
|
|
|
|
free (a);
|
|
|
|
return 0;
|
|
}
|