libgomp/testsuite/libgomp.c-c++-common/uses_allocators-10.c

// { dg-do run }

#include <omp.h>

int main ()
{
  const omp_alloctrait_t traits[] = {{omp_atk_alignment, 1024}};
  omp_allocator_handle_t alloc = omp_null_allocator;

  int array[2], var2 = 124;
  int res = 1;

  #pragma omp target map(from: res) \
     uses_allocators(memspace(omp_default_mem_space), traits(traits) : alloc) \
     allocate(alloc : array, var2) private(array) firstprivate(var2)
  {
     array[0] = 1;
     array[1] = 2;
     if (var2 != 124 || ((omp_uintptr_t) &var2) % 1024 != 0)
       __builtin_abort ();
     else if (array[0] != 1 || array[1] != 2 || ((omp_uintptr_t) &array[0]) % 1024 != 0)
       __builtin_abort ();
     else
       res = 42;
  }
  if (res != 42)
    __builtin_abort ();
}