1// RUN: %libomptarget-compilexx-run-and-check-generic
2
3#include <omp.h>
4#include <stdio.h>
5
6int x[10];
7int *p;
8
9void f1() {
10 p = &x[0];
11 p[0] = 111;
12 p[1] = 222;
13 p[2] = 333;
14 p[3] = 444;
15
16#pragma omp target enter data map(to : p)
17#pragma omp target enter data map(to : p[0 : 5])
18
19 int **p_mappedptr = (int **)omp_get_mapped_ptr(&p, omp_get_default_device());
20 int *x0_mappedptr =
21 (int *)omp_get_mapped_ptr(&x[0], omp_get_default_device());
22 int *x0_hostaddr = &x[0];
23
24 printf(format: "p_mappedptr %s null\n", p_mappedptr == (int **)NULL ? "==" : "!=");
25 printf(format: "x0_mappedptr %s null\n", x0_mappedptr == (int *)NULL ? "==" : "!=");
26
27// CHECK: p_mappedptr != null
28// CHECK: x0_mappedptr != null
29
30// p is predetermined firstprivate, so its address will be different from
31// the mapped address for this construct. So, any changes to p within the
32// region will not be visible after the construct.
33#pragma omp target map(p[0]) map(to : p_mappedptr, x0_mappedptr, x0_hostaddr)
34 {
35 printf(format: "%d %d %d %d\n", p[0], p_mappedptr == &p, x0_mappedptr == &p[0],
36 x0_hostaddr == &p[0]);
37 // CHECK: 111 0 1 0
38 p++;
39 }
40
41// For the remaining constructs, p is not firstprivate, so its address will
42// be the same as the mapped address, and changes to p will be visible to any
43// subsequent regions.
44#pragma omp target map(to : p[0], p) \
45 map(to : p_mappedptr, x0_mappedptr, x0_hostaddr)
46 {
47 printf(format: "%d %d %d %d\n", p[0], p_mappedptr == &p, x0_mappedptr == &p[0],
48 x0_hostaddr == &p[0]);
49 // EXPECTED: 111 1 1 0
50 // CHECK: 111 0 1 0
51 p++;
52 }
53
54#pragma omp target map(to : p, p[0]) \
55 map(to : p_mappedptr, x0_mappedptr, x0_hostaddr)
56 {
57 printf(format: "%d %d %d %d\n", p[0], p_mappedptr == &p, x0_mappedptr == &p[-1],
58 x0_hostaddr == &p[-1]);
59 // EXPECTED: 222 1 1 0
60 // CHECK: 111 0 0 0
61 p++;
62 }
63
64#pragma omp target map(present, alloc : p) \
65 map(to : p_mappedptr, x0_mappedptr, x0_hostaddr)
66 {
67 printf(format: "%d %d %d %d\n", p[0], p_mappedptr == &p, x0_mappedptr == &p[-2],
68 x0_hostaddr == &p[-2]);
69 // EXPECTED: 333 1 1 0
70 // CHECK: 111 1 0 0
71 }
72
73 // The following map(from:p) should not bring back p, because p is an
74 // attached pointer. So, it should still point to the same original
75 // location, &x[0], on host.
76#pragma omp target exit data map(always, from : p)
77 printf(format: "%d %d\n", p[0], p == &x[0]);
78 // CHECK: 111 1
79
80#pragma omp target exit data map(delete : p[0 : 5], p)
81}
82
83int main() { f1(); }
84

source code of offload/test/mapping/map_ptr_and_subscript_global.c