libgomp/testsuite/libgomp.oacc-c-c++-common/pr92970-1.c

   1 /* Verify that 'acc_delete' etc. on non-present data is a no-op.  */
   2
   3 #include <openacc.h>
   4
   5 int
   6 main ()
   7 {
   8   int a;
   9
  10   int async = 0;
  11
  12 #pragma acc exit data copyout (a)
  13   acc_copyout (&a, sizeof a);
  14 #pragma acc exit data copyout (a) async (async++)
  15   acc_copyout_async (&a, sizeof a, async++);
  16 #pragma acc exit data copyout (a) finalize
  17   acc_copyout_finalize (&a, sizeof a);
  18 #pragma acc exit data copyout (a) finalize async (async++)
  19   acc_copyout_finalize_async (&a, sizeof a, async++);
  20
  21 #pragma acc exit data delete (a)
  22   acc_delete (&a, sizeof a);
  23 #pragma acc exit data delete (a) async (async++)
  24   acc_delete_async (&a, sizeof a, async++);
  25 #pragma acc exit data delete (a) finalize
  26   acc_delete_finalize (&a, sizeof a);
  27 #pragma acc exit data delete (a) finalize async (async++)
  28   acc_delete_finalize_async (&a, sizeof a, async++);
  29
  30   acc_wait_all ();
  31
  32   return 0;
  33 }