libgomp/testsuite/libgomp.c/usm-5.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

/* { dg-do run } */
/* { dg-require-effective-target omp_usm } */

#include <omp.h>
#include <stdint.h>

#pragma omp requires unified_shared_memory

int
main ()
{
  int *a = (int *) omp_alloc(sizeof(int), ompx_host_mem_alloc);
  if (!a)
    __builtin_abort ();

  a[0] = 42;

  uintptr_t a_p = (uintptr_t)a;

#pragma omp target map(a[0:1])
    {
      if (a[0] != 42 || a_p == (uintptr_t)a)
	__builtin_abort ();
    }

  omp_free(a, ompx_host_mem_alloc);
  return 0;
}