|
152
|
1 /* Test nested dynamic/structured data mappings. */
|
|
|
2
|
|
|
3 /* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */
|
|
|
4
|
|
|
5 #include <openacc.h>
|
|
|
6 #include <assert.h>
|
|
|
7 #include <stdlib.h>
|
|
|
8
|
|
|
9 #define SIZE 1024
|
|
|
10
|
|
|
11 void
|
|
|
12 f1 (void)
|
|
|
13 {
|
|
|
14 char *block1 = (char *) malloc (SIZE);
|
|
|
15
|
|
|
16 #pragma acc data copy(block1[0:SIZE])
|
|
|
17 {
|
|
|
18 #ifdef OPENACC_API
|
|
|
19 acc_copyin (block1, SIZE);
|
|
|
20 acc_copyout (block1, SIZE);
|
|
|
21 #else
|
|
|
22 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
23 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
24 #endif
|
|
|
25 }
|
|
|
26
|
|
|
27 assert (!acc_is_present (block1, SIZE));
|
|
|
28
|
|
|
29 free (block1);
|
|
|
30 }
|
|
|
31
|
|
|
32 void
|
|
|
33 f2 (void)
|
|
|
34 {
|
|
|
35 char *block1 = (char *) malloc (SIZE);
|
|
|
36
|
|
|
37 #ifdef OPENACC_API
|
|
|
38 acc_copyin (block1, SIZE);
|
|
|
39 #else
|
|
|
40 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
41 #endif
|
|
|
42
|
|
|
43 #pragma acc data copy(block1[0:SIZE])
|
|
|
44 {
|
|
|
45 }
|
|
|
46
|
|
|
47 #ifdef OPENACC_API
|
|
|
48 acc_copyout (block1, SIZE);
|
|
|
49 #else
|
|
|
50 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
51 #endif
|
|
|
52
|
|
|
53 assert (!acc_is_present (block1, SIZE));
|
|
|
54
|
|
|
55 free (block1);
|
|
|
56 }
|
|
|
57
|
|
|
58 void
|
|
|
59 f3 (void)
|
|
|
60 {
|
|
|
61 char *block1 = (char *) malloc (SIZE);
|
|
|
62
|
|
|
63 #pragma acc data copy(block1[0:SIZE])
|
|
|
64 {
|
|
|
65 #ifdef OPENACC_API
|
|
|
66 acc_copyin (block1, SIZE);
|
|
|
67 acc_copyin (block1, SIZE);
|
|
|
68 acc_copyout (block1, SIZE);
|
|
|
69 acc_copyout (block1, SIZE);
|
|
|
70 #else
|
|
|
71 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
72 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
73 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
74 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
75 #endif
|
|
|
76 }
|
|
|
77
|
|
|
78 assert (!acc_is_present (block1, SIZE));
|
|
|
79
|
|
|
80 free (block1);
|
|
|
81 }
|
|
|
82
|
|
|
83 void
|
|
|
84 f4 (void)
|
|
|
85 {
|
|
|
86 char *block1 = (char *) malloc (SIZE);
|
|
|
87
|
|
|
88 #pragma acc data copy(block1[0:SIZE])
|
|
|
89 {
|
|
|
90 #ifdef OPENACC_API
|
|
|
91 acc_copyin (block1, SIZE);
|
|
|
92 #else
|
|
|
93 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
94 #endif
|
|
|
95
|
|
|
96 #pragma acc data copy(block1[0:SIZE])
|
|
|
97 {
|
|
|
98 #ifdef OPENACC_API
|
|
|
99 acc_copyin (block1, SIZE);
|
|
|
100 acc_copyout (block1, SIZE);
|
|
|
101 #else
|
|
|
102 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
103 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
104 #endif
|
|
|
105 }
|
|
|
106
|
|
|
107 #ifdef OPENACC_API
|
|
|
108 acc_copyout (block1, SIZE);
|
|
|
109 #else
|
|
|
110 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
111 #endif
|
|
|
112 }
|
|
|
113
|
|
|
114 assert (!acc_is_present (block1, SIZE));
|
|
|
115
|
|
|
116 free (block1);
|
|
|
117 }
|
|
|
118
|
|
|
119 void
|
|
|
120 f5 (void)
|
|
|
121 {
|
|
|
122 char *block1 = (char *) malloc (SIZE);
|
|
|
123
|
|
|
124 #ifdef OPENACC_API
|
|
|
125 acc_copyin (block1, SIZE);
|
|
|
126 #else
|
|
|
127 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
128 #endif
|
|
|
129
|
|
|
130 #pragma acc data copy(block1[0:SIZE])
|
|
|
131 {
|
|
|
132 #ifdef OPENACC_API
|
|
|
133 acc_copyin (block1, SIZE);
|
|
|
134 #else
|
|
|
135 #pragma acc enter data copyin(block1[0:SIZE])
|
|
|
136 #endif
|
|
|
137 #pragma acc data copy(block1[0:SIZE])
|
|
|
138 {
|
|
|
139 }
|
|
|
140 #ifdef OPENACC_API
|
|
|
141 acc_copyout (block1, SIZE);
|
|
|
142 #else
|
|
|
143 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
144 #endif
|
|
|
145 }
|
|
|
146 #ifdef OPENACC_API
|
|
|
147 acc_copyout (block1, SIZE);
|
|
|
148 #else
|
|
|
149 #pragma acc exit data copyout(block1[0:SIZE])
|
|
|
150 #endif
|
|
|
151
|
|
|
152 assert (!acc_is_present (block1, SIZE));
|
|
|
153
|
|
|
154 free (block1);
|
|
|
155 }
|
|
|
156
|
|
|
157 int
|
|
|
158 main (int argc, char *argv[])
|
|
|
159 {
|
|
|
160 f1 ();
|
|
|
161 f2 ();
|
|
|
162 f3 ();
|
|
|
163 f4 ();
|
|
|
164 f5 ();
|
|
|
165 return 0;
|
|
|
166 }
|
