2 /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
11 main (int argc
, char **argv
)
17 a
= (float *) malloc (N
* sizeof (float));
18 b
= (float *) malloc (N
* sizeof (float));
19 c
= (float *) malloc (N
* sizeof (float));
21 for (i
= 0; i
< N
; i
++)
27 d
= (float *) acc_malloc (N
* sizeof (float));
28 acc_map_data (c
, d
, N
* sizeof (float));
30 fprintf (stderr
, "CheCKpOInT\n");
31 #pragma acc parallel copyin (a[0:N]) present_or_create (c[0:N+1]) copyout (b[0:N])
35 for (ii
= 0; ii
< N
; ii
++)
42 for (i
= 0; i
< N
; i
++)
51 if (acc_is_present (a
, (N
* sizeof (float))))
54 if (acc_is_present (b
, (N
* sizeof (float))))
57 if (!acc_is_present (c
, (N
* sizeof (float))))
60 d
= (float *) acc_deviceptr (c
);
69 /* { dg-output "CheCKpOInT(\n|\r\n|\r).*" } */
70 /* { dg-output "Trying to map into device \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) object when \\\[\[0-9a-fA-FxX\]+..\[0-9a-fA-FxX\]+\\\) is already mapped" } */
71 /* { dg-shouldfail "" } */