1 #include <float.h> /* For FLT_EPSILON. */ 2 #include <math.h> /* For fabs. */ 3 #include <stdlib.h> /* For abort. */ 4 5 main()6int 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