1 extern "C" void abort ();
2
3 void
foo(int * x,int * & y,int (& z)[15])4 foo (int *x, int *&y, int (&z)[15])
5 {
6 int a[10], b[15], err, i;
7 for (i = 0; i < 10; i++)
8 a[i] = 7 * i;
9 for (i = 0; i < 15; i++)
10 b[i] = 8 * i;
11 #pragma omp target map(to:x[5:10], y[5:10], z[5:10], a[0:10], b[5:10]) map(from:err)
12 {
13 err = 0;
14 for (i = 0; i < 10; i++)
15 if (x[5 + i] != 20 + 4 * i
16 || y[5 + i] != 25 + 5 * i
17 || z[5 + i] != 30 + 6 * i
18 || a[i] != 7 * i
19 || b[5 + i] != 40 + 8 * i)
20 err = 1;
21 }
22 if (err)
23 abort ();
24 }
25
26 void
bar(int n,int v)27 bar (int n, int v)
28 {
29 int a[n], b[n], c[n], d[n], e[n], err, i;
30 int (*x)[n] = &c;
31 int (*y2)[n] = &d;
32 int (*&y)[n] = y2;
33 int (&z)[n] = e;
34 for (i = 0; i < n; i++)
35 {
36 (*x)[i] = 4 * i;
37 (*y)[i] = 5 * i;
38 z[i] = 6 * i;
39 a[i] = 7 * i;
40 b[i] = 8 * i;
41 }
42 #pragma omp target map(to:x[0][5:10], y[0][5:10], z[5:10], a[0:10], b[5:10]) map(from:err)
43 {
44 err = 0;
45 for (i = 0; i < 10; i++)
46 if ((*x)[5 + i] != 20 + 4 * i
47 || (*y)[5 + i] != 25 + 5 * i
48 || z[5 + i] != 30 + 6 * i
49 || a[i] != 7 * i
50 || b[5 + i] != 40 + 8 * i)
51 err = 1;
52 }
53 if (err)
54 abort ();
55 for (i = 0; i < n; i++)
56 {
57 (*x)[i] = 9 * i;
58 (*y)[i] = 10 * i;
59 z[i] = 11 * i;
60 a[i] = 12 * i;
61 b[i] = 13 * i;
62 }
63 #pragma omp target map(to:x[0][v:v+5], y[0][v:v+5], z[v:v+5], a[v-5:v+5], b[v:v+5]) map(from:err)
64 {
65 err = 0;
66 for (i = 0; i < 10; i++)
67 if ((*x)[5 + i] != 45 + 9 * i
68 || (*y)[5 + i] != 50 + 10 * i
69 || z[5 + i] != 55 + 11 * i
70 || a[i] != 12 * i
71 || b[5 + i] != 65 + 13 * i)
72 err = 1;
73 }
74 if (err)
75 abort ();
76 }
77
78 int
main()79 main ()
80 {
81 int x[15], y2[15], z[15], *y = y2, i;
82 for (i = 0; i < 15; i++)
83 {
84 x[i] = 4 * i;
85 y[i] = 5 * i;
86 z[i] = 6 * i;
87 }
88 foo (x, y, z);
89 bar (15, 5);
90 }
91