1/* { dg-do run } */
2
3#include <stdlib.h>
4#include <openacc.h>
5
6int
7main (int argc, char **argv)
8{
9  const int N = 256;
10  unsigned char *h;
11  void *d1, *d2;
12
13  h = (unsigned char *) malloc (N);
14
15  d1 = acc_present_or_create (h, N);
16  if (!d1)
17    abort ();
18
19  d2 = acc_present_or_create (h, N);
20  if (!d2)
21    abort ();
22
23  if (d1 != d2)
24    abort ();
25
26  d2 = acc_pcreate (h, N);
27  if (!d2)
28    abort ();
29
30  if (d1 != d2)
31    abort ();
32
33  acc_delete (h, N);
34
35  free (h);
36
37  return 0;
38}
39