1 /* { dg-do run } */
2 /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
3 
4 #include <openacc.h>
5 #include <string.h>
6 #include <stdio.h>
7 #include <stdlib.h>
8 #include <stdbool.h>
9 
10 int
main(int argc,char ** argv)11 main(int argc, char **argv)
12 {
13     int N = 8;
14     float *a, *b;
15     int i;
16 
17     a = (float *) malloc(N * sizeof (float));
18     b = (float *) malloc(N * sizeof (float));
19 
20     for (i = 0; i < N; i++)
21     {
22         a[i] = 2.0;
23         b[i] = 5.0;
24     }
25 
26 #pragma acc parallel copyin(a[2:4]) copyout(b[2:4])
27     {
28         b[2] = a[2];
29         b[3] = a[3];
30     }
31 
32     for (i = 2; i < 4; i++)
33     {
34         if (a[i] != 2.0)
35             abort();
36 
37         if (b[i] != 2.0)
38             abort();
39     }
40 
41     for (i = 0; i < N; i++)
42     {
43         a[i] = 3.0;
44         b[i] = 1.0;
45     }
46 
47 #pragma acc parallel copyin(a[0:4]) copyout(b[0:4])
48     {
49         b[0] = a[0];
50         b[1] = a[1];
51         b[2] = a[2];
52         b[3] = a[3];
53     }
54 
55     for (i = 0; i < 4; i++)
56     {
57         if (a[i] != 3.0)
58             abort();
59 
60         if (b[i] != 3.0)
61             abort();
62     }
63 
64     for (i = 0; i < N; i++)
65     {
66         a[i] = 9.0;
67         b[i] = 6.0;
68     }
69 
70 #pragma acc parallel copyin(a[0:4]) copyout(b[4:4])
71     {
72         b[4] = a[0];
73         b[5] = a[1];
74         b[6] = a[2];
75         b[7] = a[3];
76     }
77 
78     for (i = 0; i < 4; i++)
79     {
80         if (a[i] != 9.0)
81             abort();
82     }
83 
84     for (i = 4; i < 8; i++)
85     {
86         if (b[i] != 9.0)
87             abort();
88     }
89 
90     if (acc_is_present (a, (N * sizeof (float))))
91       abort();
92 
93     if (acc_is_present (b, (N * sizeof (float))))
94       abort();
95 
96     return 0;
97 }
98