1 #include <float.h>  /* For FLT_EPSILON. */
2 #include <math.h>  /* For fabs.  */
3 #include <stdlib.h>  /* For abort.  */
4 
5 
main()6 int main()
7 {
8 #define N 100
9   float b[N];
10   float c[N];
11 
12 #pragma acc enter data create(b)
13 
14 #pragma acc parallel loop no_create(b) no_create(c)
15   for (int i = 0; i < N; ++i)
16     b[i] = i;
17 
18 #pragma acc exit data copyout(b)
19 
20   for (int i = 0; i < N; ++i)
21     if (fabs (b[i] - i) > 10.0*FLT_EPSILON)
22       abort ();
23 
24   return 0;
25 }
26