1  #include <assert.h>
       2  #include <stdlib.h>
       3  #include <openacc.h>
       4  
       5  int
       6  main ()
       7  {
       8    int n = 100, i;
       9    int *a = (int *) malloc (sizeof (int) * n);
      10    int *b;
      11  
      12    for (i = 0; i < n; i++)
      13      a[i] = i+1;
      14  
      15  #pragma acc enter data copyin(a[:n]) create(b)
      16  
      17    b = a;
      18    acc_attach ((void **)&b);
      19  
      20  #pragma acc parallel loop present (b[:n])
      21    for (i = 0; i < n; i++)
      22      b[i] = i+1;
      23  
      24    acc_detach ((void **)&b);
      25  
      26  #pragma acc exit data copyout(a[:n], b)
      27  
      28    for (i = 0; i < 10; i++)
      29      assert (a[i] == b[i]);
      30  
      31    free (a);
      32  
      33    return 0;
      34  }