1 /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
2
3 #include <stdio.h>
4
5 int main ()
6 {
7 struct {
8 int *arr;
9 } mystr;
10 int localarr[16];
11 mystr.arr = localarr;
12
13 #pragma acc enter data copyin(mystr, localarr[0:16])
14
15 #pragma acc data attach(mystr.arr)
16 {
17 #pragma acc exit data detach(mystr.arr)
18 fprintf (stderr, "CheCKpOInT1\n");
19 /* { dg-output ".*CheCKpOInT1(\n|\r\n|\r)" } */
20 }
21 /* { dg-shouldfail "" }
22 { dg-output "(\n|\r\n|\r)libgomp: attach count underflow(\n|\r\n|\r)$" } */
23 fprintf (stderr, "CheCKpOInT2\n");
24
25 #pragma acc exit data copyout(mystr, localarr[0:16])
26
27 return 0;
28 }