libgomp/testsuite/libgomp.c/allocators-2.c

/* { dg-do run } */

/* Test concurrent and repeated allocations.  */

#include <omp.h>

#pragma omp requires dynamic_allocators

void
test (int n, omp_allocator_handle_t allocator)
{
  #pragma omp target map(to:n) map(to:allocator)
  {
    int **a;
    a = (int **) omp_alloc(n*sizeof(int*), allocator);

    #pragma omp parallel for
    for (int i = 0; i < n; i++)
      {
	/*Use 10x to ensure we do activate low-latency fall-back.  */
	a[i] = omp_alloc(sizeof(int)*10, allocator);
	a[i][0] = i;
      }

    for (int i = 0; i < n; i++)
      if (a[i][0] != i)
	{
	  __builtin_printf ("data mismatch at %i\n", i);
	  __builtin_abort ();
	}

    #pragma omp parallel for
    for (int i = 0; i < n; i++)
      omp_free(a[i], allocator);

    omp_free (a, allocator);
  }
}

int
main ()
{
  // Smaller than low-latency memory limit
  test (10, omp_default_mem_alloc);
  test (10, omp_large_cap_mem_alloc);
  test (10, omp_const_mem_alloc);
  test (10, omp_high_bw_mem_alloc);
  test (10, omp_low_lat_mem_alloc);
  test (10, omp_cgroup_mem_alloc);
  test (10, omp_pteam_mem_alloc);
  test (10, omp_thread_mem_alloc);

  // Larger than low-latency memory limit (on aggregate)
  test (1000, omp_default_mem_alloc);
  test (1000, omp_large_cap_mem_alloc);
  test (1000, omp_const_mem_alloc);
  test (1000, omp_high_bw_mem_alloc);
  test (1000, omp_low_lat_mem_alloc);
  test (1000, omp_cgroup_mem_alloc);
  test (1000, omp_pteam_mem_alloc);
  test (1000, omp_thread_mem_alloc);

  return 0;
}