1 // RUN: %libomptarget-compile-generic -fopenmp-extensions
2 // RUN: %libomptarget-run-generic | %fcheck-generic -strict-whitespace
8   printf("    presence of %s, %s, %s: %d, %d, %d\n", #Var1, #Var2, #Var3,      \
14   int m, r, d;  in main()  local
15   // CHECK: presence of m, r, d: 0, 0, 0  in main()
16   CHECK_PRESENCE(m, r, d);  in main()
18   // -----------------------------------------------------------------------  in main()
19   // CHECK-NEXT: check:{{.*}}  in main()
22   // CHECK-NEXT: once  in main()
24 #pragma omp target map(tofrom : m) map(alloc : r, d)  in main()
26   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
27   CHECK_PRESENCE(m, r, d);  in main()
29   // CHECK-NEXT: twice  in main()
31 #pragma omp target data map(tofrom : m) map(alloc : r, d)  in main()
33     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
34     CHECK_PRESENCE(m, r, d);  in main()
35 #pragma omp target map(tofrom : m) map(alloc : r, d)  in main()
37     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
38     CHECK_PRESENCE(m, r, d);  in main()
40   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
41   CHECK_PRESENCE(m, r, d);  in main()
43   // -----------------------------------------------------------------------  in main()
47   // CHECK-NEXT: once  in main()
49 #pragma omp target map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
51   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
52   CHECK_PRESENCE(m, r, d);  in main()
54   // CHECK-NEXT: twice  in main()
56 #pragma omp target data map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
58     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
59     CHECK_PRESENCE(m, r, d);  in main()
60 #pragma omp target map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
62     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
63     CHECK_PRESENCE(m, r, d);  in main()
65   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
66   CHECK_PRESENCE(m, r, d);  in main()
68   // -----------------------------------------------------------------------  in main()
72   // CHECK-NEXT: once each  in main()
74 #pragma omp target data map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
76     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
77     CHECK_PRESENCE(m, r, d);  in main()
78 #pragma omp target map(tofrom : m) map(alloc : r, d)  in main()
80     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
81     CHECK_PRESENCE(m, r, d);  in main()
83   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
84   CHECK_PRESENCE(m, r, d);  in main()
86   // CHECK-NEXT: twice each  in main()
88 #pragma omp target data map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
90     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
91     CHECK_PRESENCE(m, r, d);  in main()
92 #pragma omp target data map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
94       // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
95       CHECK_PRESENCE(m, r, d);  in main()
96 #pragma omp target data map(tofrom : m) map(alloc : r, d)  in main()
98         // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
99         CHECK_PRESENCE(m, r, d);  in main()
100 #pragma omp target map(tofrom : m) map(alloc : r, d)  in main()
102         // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
103         CHECK_PRESENCE(m, r, d);  in main()
105       // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
106       CHECK_PRESENCE(m, r, d);  in main()
108     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
109     CHECK_PRESENCE(m, r, d);  in main()
111   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
112   CHECK_PRESENCE(m, r, d);  in main()
114   // -----------------------------------------------------------------------  in main()
118   // CHECK-NEXT: once each  in main()
120 #pragma omp target data map(tofrom : m) map(alloc : r, d)  in main()
122     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
123     CHECK_PRESENCE(m, r, d);  in main()
124 #pragma omp target map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
126     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
127     CHECK_PRESENCE(m, r, d);  in main()
129   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
130   CHECK_PRESENCE(m, r, d);  in main()
132   // CHECK-NEXT: twice each  in main()
134 #pragma omp target data map(tofrom : m) map(alloc : r, d)  in main()
136     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
137     CHECK_PRESENCE(m, r, d);  in main()
138 #pragma omp target data map(tofrom : m) map(alloc : r, d)  in main()
140       // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
141       CHECK_PRESENCE(m, r, d);  in main()
142 #pragma omp target data map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
144         // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
145         CHECK_PRESENCE(m, r, d);  in main()
146 #pragma omp target map(ompx_hold, tofrom : m) map(ompx_hold, alloc : r, d)  in main()
148         // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
149         CHECK_PRESENCE(m, r, d);  in main()
151       // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
152       CHECK_PRESENCE(m, r, d);  in main()
154     // CHECK-NEXT: presence of m, r, d: 1, 1, 1  in main()
155     CHECK_PRESENCE(m, r, d);  in main()
157   // CHECK-NEXT: presence of m, r, d: 0, 0, 0  in main()
158   CHECK_PRESENCE(m, r, d);  in main()