libgomp/testsuite/libgomp.c++/target-has-device-addr-6.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
32

/* Testing 'has_device_addr' clause on the target construct with reference. */

#include <omp.h>

int
main ()
{
  int *dpx = (int*)omp_target_alloc (sizeof(int), 0);
  double *dpy = (double*)omp_target_alloc (sizeof(double), 0);

  #pragma omp target is_device_ptr(dpx, dpy)
    {
      *dpx = 42;
      *dpy = 43.5;
    }

  int &x = *dpx;
  double &y = *dpy;

  #pragma omp target has_device_addr(x, y)
    {
      x = 24;
      y = 25.7;
    }

  #pragma omp target has_device_addr(y, x)
    if (x != 24 || y != 25.7)
      __builtin_abort ();

  omp_target_free(dpx, 0);
  omp_target_free(dpy, 0);
}