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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

/* Test dynamic unmapping of separate structure members.  */

/* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */

#include <assert.h>
#include <openacc.h>

struct s
{
  char a;
  char b;
};

int main ()
{
  struct s s;

#pragma acc enter data create(s.a, s.b)

  assert (acc_is_present (&s.a, sizeof s.a));
  assert (acc_is_present (&s.b, sizeof s.b));

#pragma acc exit data delete(s.a)
#pragma acc exit data delete(s.b)

  assert (!acc_is_present (&s.a, sizeof s.a));
  assert (!acc_is_present (&s.b, sizeof s.b));

  return 0;
}