4 struct S
{ char p
[64]; int a
; int b
[2]; long c
[4]; int *d
; char q
[64]; };
6 __attribute__((noinline
, noclone
)) void
9 int d
= omp_get_default_device ();
10 int id
= omp_get_initial_device ();
13 if (d
< 0 || d
>= omp_get_num_devices ())
17 #pragma omp target map(tofrom: s.a, s.b, s.c[1:2], s.d[-2:3]) map(to: sep) map(from: err)
19 err
= s
.a
!= 11 || s
.b
[0] != 12 || s
.b
[1] != 13;
20 err
|= s
.c
[1] != 15 || s
.c
[2] != 16 || s
.d
[-2] != 18 || s
.d
[-1] != 19 || s
.d
[0] != 20;
21 s
.a
= 35; s
.b
[0] = 36; s
.b
[1] = 37;
22 s
.c
[1] = 38; s
.c
[2] = 39; s
.d
[-2] = 40; s
.d
[-1] = 41; s
.d
[0] = 42;
26 err
= s
.a
!= 35 || s
.b
[0] != 36 || s
.b
[1] != 37;
27 err
|= s
.c
[1] != 38 || s
.c
[2] != 39 || s
.d
[-2] != 40 || s
.d
[-1] != 41 || s
.d
[0] != 42;
29 s
.a
= 50; s
.b
[0] = 49; s
.b
[1] = 48;
30 s
.c
[1] = 47; s
.c
[2] = 46; s
.d
[-2] = 45; s
.d
[-1] = 44; s
.d
[0] = 43;
32 && (omp_target_is_present (&s
.a
, d
)
33 || omp_target_is_present (s
.b
, d
)
34 || omp_target_is_present (&s
.c
[1], d
)
35 || omp_target_is_present (s
.d
, d
)
36 || omp_target_is_present (&s
.d
[-2], d
)))
38 #pragma omp target data map(alloc: s.a, s.b, s.c[1:2], s.d[-2:3])
40 if (!omp_target_is_present (&s
.a
, d
)
41 || !omp_target_is_present (s
.b
, d
)
42 || !omp_target_is_present (&s
.c
[1], d
)
43 || !omp_target_is_present (s
.d
, d
)
44 || !omp_target_is_present (&s
.d
[-2], d
))
46 #pragma omp target update to(s.a, s.b, s.c[1:2], s.d[-2:3])
47 #pragma omp target map(alloc: s.a, s.b, s.c[1:2], s.d[-2:3]) map(from: err)
49 err
= s
.a
!= 50 || s
.b
[0] != 49 || s
.b
[1] != 48;
50 err
|= s
.c
[1] != 47 || s
.c
[2] != 46 || s
.d
[-2] != 45 || s
.d
[-1] != 44 || s
.d
[0] != 43;
51 s
.a
= 17; s
.b
[0] = 18; s
.b
[1] = 19;
52 s
.c
[1] = 20; s
.c
[2] = 21; s
.d
[-2] = 22; s
.d
[-1] = 23; s
.d
[0] = 24;
54 #pragma omp target update from(s.a, s.b, s.c[1:2], s.d[-2:3])
57 && (omp_target_is_present (&s
.a
, d
)
58 || omp_target_is_present (s
.b
, d
)
59 || omp_target_is_present (&s
.c
[1], d
)
60 || omp_target_is_present (s
.d
, d
)
61 || omp_target_is_present (&s
.d
[-2], d
)))
64 err
= s
.a
!= 17 || s
.b
[0] != 18 || s
.b
[1] != 19;
65 err
|= s
.c
[1] != 20 || s
.c
[2] != 21 || s
.d
[-2] != 22 || s
.d
[-1] != 23 || s
.d
[0] != 24;
67 s
.a
= 33; s
.b
[0] = 34; s
.b
[1] = 35;
68 s
.c
[1] = 36; s
.c
[2] = 37; s
.d
[-2] = 38; s
.d
[-1] = 39; s
.d
[0] = 40;
69 #pragma omp target enter data map(alloc: s.a, s.b, s.c[1:2], s.d[-2:3])
70 if (!omp_target_is_present (&s
.a
, d
)
71 || !omp_target_is_present (s
.b
, d
)
72 || !omp_target_is_present (&s
.c
[1], d
)
73 || !omp_target_is_present (s
.d
, d
)
74 || !omp_target_is_present (&s
.d
[-2], d
))
76 #pragma omp target enter data map(always, to: s.a, s.b, s.c[1:2], s.d[-2:3])
77 #pragma omp target map(alloc: s.a, s.b, s.c[1:2], s.d[-2:3]) map(from: err)
79 err
= s
.a
!= 33 || s
.b
[0] != 34 || s
.b
[1] != 35;
80 err
|= s
.c
[1] != 36 || s
.c
[2] != 37 || s
.d
[-2] != 38 || s
.d
[-1] != 39 || s
.d
[0] != 40;
81 s
.a
= 49; s
.b
[0] = 48; s
.b
[1] = 47;
82 s
.c
[1] = 46; s
.c
[2] = 45; s
.d
[-2] = 44; s
.d
[-1] = 43; s
.d
[0] = 42;
84 #pragma omp target exit data map(always, from: s.a, s.b, s.c[1:2], s.d[-2:3])
85 if (!omp_target_is_present (&s
.a
, d
)
86 || !omp_target_is_present (s
.b
, d
)
87 || !omp_target_is_present (&s
.c
[1], d
)
88 || !omp_target_is_present (s
.d
, d
)
89 || !omp_target_is_present (&s
.d
[-2], d
))
91 #pragma omp target exit data map(release: s.a, s.b, s.c[1:2], s.d[-2:3])
93 && (omp_target_is_present (&s
.a
, d
)
94 || omp_target_is_present (s
.b
, d
)
95 || omp_target_is_present (&s
.c
[1], d
)
96 || omp_target_is_present (s
.d
, d
)
97 || omp_target_is_present (&s
.d
[-2], d
)))
100 err
= s
.a
!= 49 || s
.b
[0] != 48 || s
.b
[1] != 47;
101 err
|= s
.c
[1] != 46 || s
.c
[2] != 45 || s
.d
[-2] != 44 || s
.d
[-1] != 43 || s
.d
[0] != 42;
108 int d
[3] = { 18, 19, 20 };
109 struct S s
= { {}, 11, { 12, 13 }, { 14, 15, 16, 17 }, d
+ 2, {} };