blob: cec764bd3e7f96a152b1d6d7138a3b8c72cd999b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#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;
}
|
