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