1  /* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */
       2  
       3  #include <openacc.h>
       4  #include <assert.h>
       5  #include <stdlib.h>
       6  
       7  #define SIZE 1024
       8  
       9  int
      10  main (int argc, char *argv[])
      11  {
      12    char *block1 = (char *) malloc (SIZE);
      13    char *block2 = (char *) malloc (SIZE);
      14  
      15  #ifdef OPENACC_API
      16    acc_copyin (block1, SIZE);
      17  #else
      18  #pragma acc enter data copyin(block1[0:SIZE])
      19  #endif
      20  
      21  #pragma acc data copy(block1[0:SIZE], block2[0:SIZE])
      22    {
      23  #ifdef OPENACC_API
      24      acc_copyout (block1, SIZE);
      25      acc_copyin (block2, SIZE);
      26  #else
      27  #pragma acc exit data copyout(block1[0:SIZE])
      28  #pragma acc enter data copyin(block2[0:SIZE])
      29  #endif
      30      assert (acc_is_present (block1, SIZE));
      31      assert (acc_is_present (block2, SIZE));
      32    }
      33  
      34    assert (!acc_is_present (block1, SIZE));
      35    assert (acc_is_present (block2, SIZE));
      36  #ifdef OPENACC_API
      37    acc_copyout (block2, SIZE);
      38  #else
      39  #pragma acc exit data copyout(block2[0:SIZE])
      40  #endif
      41    assert (!acc_is_present (block2, SIZE));
      42  
      43    free (block1);
      44    free (block2);
      45  
      46    return 0;
      47  }