blob: 919ee02b725bb0637d87d0b28999b6d070774734 (
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
35
36
37
38
39
40
41
42
43
44
45
46
47
|
/* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */
#include <openacc.h>
#include <assert.h>
#include <stdlib.h>
#define SIZE 1024
int
main (int argc, char *argv[])
{
char *block1 = (char *) malloc (SIZE);
char *block2 = (char *) malloc (SIZE);
#ifdef OPENACC_API
acc_copyin (block1, SIZE);
#else
#pragma acc enter data copyin(block1[0:SIZE])
#endif
#pragma acc data copy(block1[0:SIZE], block2[0:SIZE])
{
#ifdef OPENACC_API
acc_copyout (block1, SIZE);
acc_copyin (block2, SIZE);
#else
#pragma acc exit data copyout(block1[0:SIZE])
#pragma acc enter data copyin(block2[0:SIZE])
#endif
assert (acc_is_present (block1, SIZE));
assert (acc_is_present (block2, SIZE));
}
assert (!acc_is_present (block1, SIZE));
assert (acc_is_present (block2, SIZE));
#ifdef OPENACC_API
acc_copyout (block2, SIZE);
#else
#pragma acc exit data copyout(block2[0:SIZE])
#endif
assert (!acc_is_present (block2, SIZE));
free (block1);
free (block2);
return 0;
}
|
