1  /* Testing the 'has_device_addr' clause on the target construct with
       2     enclosing 'target data' construct. */
       3  
       4  #define N 40
       5  
       6  int
       7  main ()
       8  {
       9    int x = 24;
      10  
      11    #pragma omp target data map(x) use_device_addr(x)
      12      #pragma omp target has_device_addr(x)
      13        x = 42;
      14    if (x != 42)
      15      __builtin_abort ();
      16  
      17    int y[N];
      18  
      19    for (int i = 0; i < N; i++)
      20      y[i] = 42;
      21    #pragma omp target data map(y) use_device_addr(y)
      22      #pragma omp target has_device_addr(y)
      23        for (int i = 0; i < N; i++)
      24  	y[i] = i;
      25    for (int i = 0; i < N; i++)
      26      if (y[i] != i)
      27        __builtin_abort ();
      28  
      29    #pragma omp target data map(y[:N]) use_device_addr(y)
      30      #pragma omp target has_device_addr(y[:N])
      31        for (int i = 0; i < N; i++)
      32  	y[i] = i + 2;
      33    for (int i = 0; i < N; i++)
      34      if (y[i] != i + 2)
      35        __builtin_abort ();
      36  
      37    #pragma omp target data map(y[:N]) use_device_addr(y)
      38      #pragma omp target has_device_addr(y[24])
      39  	y[24] = 42;
      40    if (y[24] != 42)
      41      __builtin_abort ();
      42  
      43    #pragma omp target data map(y[:N]) use_device_addr(y)
      44      #pragma omp target has_device_addr(y[24:])
      45        for (int i = 24; i < N; i++)
      46  	y[i] = i + 3;
      47    for (int i = 24; i < N; i++)
      48      if (y[i] != i + 3)
      49        __builtin_abort ();
      50  
      51    #pragma omp target data map(y[:N]) use_device_addr(y)
      52      #pragma omp target has_device_addr(y[12:24])
      53        for (int i = 12; i < 24; i++)
      54  	y[i] = i + 4;
      55    for (int i = 12; i < 24; i++)
      56      if (y[i] != i + 4)
      57        __builtin_abort ();
      58  
      59    int u[0];
      60    #pragma omp target data map(u) use_device_addr(u)
      61      #pragma omp target has_device_addr(u)
      62    ;
      63  
      64    struct S { int m; } s;
      65    s.m = 42;
      66    #pragma omp target data map (s) use_device_addr (s)
      67      #pragma omp target has_device_addr (s)
      68        ++s.m;
      69    if (s.m != 43)
      70      __builtin_abort ();
      71  
      72    return 0;
      73  }