libgomp/testsuite/libgomp.c-c++-common/allocate-2.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3 #include <stdint.h>
   4
   5 int zero;
   6
   7 omp_allocator_handle_t
   8 allocator (omp_allocator_handle_t h)
   9 {
  10   if (zero)
  11     return h;
  12   else
  13     abort ();
  14 }
  15
  16 omp_allocator_handle_t
  17 align (int a)
  18 {
  19   if (zero)
  20     return omp_default_mem_alloc;
  21   else
  22     abort ();
  23 }
  24
  25 int
  26 main ()
  27 {
  28   int x = 1, y = 2;
  29   #pragma omp parallel num_threads(2) firstprivate (x, y) allocate (allocator (omp_default_mem_alloc) : x) allocate (align (16) : y)
  30   {
  31     if (x != 1 || y != 2)
  32       abort ();
  33     if ((((uintptr_t) &y) & 15) != 0)
  34       abort ();
  35   }
  36   return 0;
  37 }