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

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