1 extern "C" void abort (void);
2 struct S { int s; int *u; int v[5]; };
3 volatile int z;
4 
5 template <typename T>
6 void
foo()7 foo ()
8 {
9   int u[10] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }, err = 0;
10   T s = { 9, u + 3, { 10, 11, 12, 13, 14 } };
11   int *v = u + 4;
12   #pragma omp target enter data map (to: s.s, s.template u[0:5]) map (alloc: s.template v[1:3])
13   s.s++;
14   u[3]++;
15   s.v[1]++;
16   #pragma omp target update to (s.template s) to (s.u[0:2], s.v[1:3])
17   #pragma omp target map (alloc: s.s, s.v[1:3]) map (from: err)
18   {
19     err = 0;
20     if (s.s != 10 || s.v[1] != 12 || s.v[2] != 12 || s.v[3] != 13)
21       err = 1;
22     if (v[-1] != 4 || v[0] != 4 || v[1] != 5 || v[2] != 6 || v[3] != 7)
23       err = 1;
24     s.s++;
25     s.v[2] += 2;
26     v[-1] = 5;
27     v[3] = 9;
28   }
29   if (err)
30     abort ();
31   #pragma omp target map (alloc: s.u[0:5])
32   {
33     err = 0;
34     if (s.u[0] != 5 || s.u[1] != 4 || s.u[2] != 5 || s.u[3] != 6 || s.u[4] != 9)
35       err = 1;
36     s.u[1] = 12;
37   }
38   #pragma omp target update from (s.s, s.u[0:5]) from (s.v[1:3])
39   if (err || s.s != 11 || u[0] != 0 || u[1] != 1 || u[2] != 2 || u[3] != 5
40       || u[4] != 12 || u[5] != 5 || u[6] != 6 || u[7] != 9 || u[8] != 8
41       || u[9] != 9 || s.v[0] != 10 || s.v[1] != 12 || s.v[2] != 14
42       || s.v[3] != 13 || s.v[4] != 14)
43     abort ();
44   #pragma omp target exit data map (release: s.s)
45   #pragma omp target exit data map (release: s.u[0:5])
46   #pragma omp target exit data map (delete: s.v[1:3])
47   #pragma omp target exit data map (release: s.s)
48 }
49 
50 int
main()51 main ()
52 {
53   int u[10] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }, err = 0;
54   S s = { 9, u + 3, { 10, 11, 12, 13, 14 } };
55   int *v = u + 4;
56   #pragma omp target enter data map (to: s.s, s.u[0:5]) map (alloc: s.v[1:3])
57   s.s++;
58   u[3]++;
59   s.v[1]++;
60   #pragma omp target update to (s.s) to (s.u[0:2], s.v[1:3])
61   #pragma omp target map (alloc: s.s, s.v[1:3]) map (from: err)
62   {
63     err = 0;
64     if (s.s != 10 || s.v[1] != 12 || s.v[2] != 12 || s.v[3] != 13)
65       err = 1;
66     if (v[-1] != 4 || v[0] != 4 || v[1] != 5 || v[2] != 6 || v[3] != 7)
67       err = 1;
68     s.s++;
69     s.v[2] += 2;
70     v[-1] = 5;
71     v[3] = 9;
72   }
73   if (err)
74     abort ();
75   #pragma omp target map (alloc: s.u[0:5])
76   {
77     err = 0;
78     if (s.u[0] != 5 || s.u[1] != 4 || s.u[2] != 5 || s.u[3] != 6 || s.u[4] != 9)
79       err = 1;
80     s.u[1] = 12;
81   }
82   #pragma omp target update from (s.s, s.u[0:5]) from (s.v[1:3])
83   if (err || s.s != 11 || u[0] != 0 || u[1] != 1 || u[2] != 2 || u[3] != 5
84       || u[4] != 12 || u[5] != 5 || u[6] != 6 || u[7] != 9 || u[8] != 8
85       || u[9] != 9 || s.v[0] != 10 || s.v[1] != 12 || s.v[2] != 14
86       || s.v[3] != 13 || s.v[4] != 14)
87     abort ();
88   #pragma omp target exit data map (release: s.s)
89   #pragma omp target exit data map (release: s.u[0:5])
90   #pragma omp target exit data map (always, delete: s.v[1:3])
91   #pragma omp target exit data map (release: s.s)
92   #pragma omp target exit data map (always delete : s.v[1:3])
93 }
94