/* { dg-do run } */ | |
#include <stdlib.h> | |
#include <openacc.h> | |
int | |
main (int argc, char **argv) | |
{ | |
const int N = 256; | |
int i; | |
unsigned char *h; | |
h = (unsigned char *) malloc (N); | |
for (i = 0; i < N; i++) | |
{ | |
h[i] = i; | |
} | |
(void) acc_copyin (h, N); | |
acc_copyout (h + 1, N - 1); | |
free (h); | |
return 0; | |
} | |
/* { dg-shouldfail "libgomp: \[\h+,256\] surrounds2 \[\h+,\+255\]" } */ |