libgomp/testsuite/libgomp.c/allocator-2.c

   1 /* { dg-set-target-env-var OMP_ALLOCATOR "omp_large_cap_mem_space" } */
   2 /* { dg-set-target-env-var OMP_DISPLAY_ENV "true" } */
   3
   4 /* Expect omp_large_cap_mem_alloc as allocator for omp_large_cap_mem_space. */
   5 /* { dg-output ".\\\[host\\\] OMP_ALLOCATOR = 'omp_large_cap_mem_alloc'.*" } */
   6 #include <omp.h>
   7
   8 int
   9 main ()
  10 {
  11   omp_allocator_handle_t m = omp_get_default_allocator ();
  12   /* Without traits, omp_large_cap_mem_space implies
  13      omp_large_cap_mem_alloc.  */
  14   if (m != omp_large_cap_mem_alloc)
  15     __builtin_abort ();
  16   return 0;
  17 }