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

#include <omp.h>

int
main ()
{
  int *dp = (int*)omp_target_alloc (30*sizeof(int), 0);

  #pragma omp target is_device_ptr(dp)
    for (int i = 0; i < 30; i++)
      dp[i] = i;

  int (&x)[30] = *static_cast<int(*)[30]>(static_cast<void*>(dp));

  #pragma omp target has_device_addr(x)
    for (int i = 0; i < 30; i++)
      x[i] = 2 * i;

  #pragma omp target has_device_addr(x)
    for (int i = 0; i < 30; i++)
      if (x[i] != 2 * i)
	__builtin_abort ();

  #pragma omp target has_device_addr(x[1:5])
    for (int i = 1; i < 6; i++)
      x[i] = 3 * i;

  #pragma omp target has_device_addr(x[1:5])
    for (int i = 1; i < 6; i++)
      if (x[i] != 3 * i)
	__builtin_abort ();

  omp_target_free (dp, 0);
}