1 extern "C" void abort ();
4 foo (int *x, int *&y, int (&z)[15])
6 int a[10], b[15], err, i;
7 for (i = 0; i < 10; i++)
9 for (i = 0; i < 15; 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)
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
19 || b[5 + i] != 40 + 8 * i)
29 int a[n], b[n], c[n], d[n], e[n], err, i;
34 for (i = 0; i < n; i++)
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)
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
50 || b[5 + i] != 40 + 8 * i)
55 for (i = 0; i < n; i++)
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)
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
71 || b[5 + i] != 65 + 13 * i)
81 int x[15], y2[15], z[15], *y = y2, i;
82 for (i = 0; i < 15; i++)