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

   1 /* Test dynamic unmapping of separate structure members.  */
   2
   3 /* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */
   4
   5 #include <assert.h>
   6 #include <openacc.h>
   7
   8 struct s
   9 {
  10   char a;
  11   char b;
  12 };
  13
  14 int main ()
  15 {
  16   struct s s;
  17
  18 #pragma acc enter data create(s.a, s.b)
  19
  20   assert (acc_is_present (&s.a, sizeof s.a));
  21   assert (acc_is_present (&s.b, sizeof s.b));
  22
  23 #pragma acc exit data delete(s.a)
  24 #pragma acc exit data delete(s.b)
  25
  26   assert (!acc_is_present (&s.a, sizeof s.a));
  27   assert (!acc_is_present (&s.b, sizeof s.b));
  28
  29   return 0;
  30 }
  31