f70977936a
The variable omp_atv_sequential was replaced by omp_atv_serialized in OpenMP 5.1. This was already implemented by Jakub (C/C++, commitea82325afe) and Tobias (Fortran, commitfff15bad1a). This patch adds two tests to check if omp_atv_serialized is available (one test for C/C++ and one for Fortran). Besides that omp_atv_sequential is marked as deprecated in C/C++ and Fortran for OpenMP 5.1. libgomp/ChangeLog: * allocator.c (omp_init_allocator): Replace omp_atv_sequential with omp_atv_serialized. * omp.h.in: Add deprecated flag for omp_atv_sequential. * omp_lib.f90.in: Add deprecated flag for omp_atv_sequential. * testsuite/libgomp.c-c++-common/alloc-10.c: New test. * testsuite/libgomp.fortran/alloc-12.f90: New test.
26 lines
557 B
C
26 lines
557 B
C
#include <omp.h>
|
|
#include <stdint.h>
|
|
#include <stdlib.h>
|
|
|
|
const omp_alloctrait_t traits[]
|
|
= { { omp_atk_alignment, 64 },
|
|
{ omp_atk_sync_hint, omp_atv_serialized },
|
|
{ omp_atk_fallback, omp_atv_null_fb } };
|
|
|
|
int
|
|
main ()
|
|
{
|
|
omp_allocator_handle_t a;
|
|
int *volatile p;
|
|
a = omp_init_allocator (omp_default_mem_space, 3, traits);
|
|
if (a == omp_null_allocator)
|
|
abort ();
|
|
p = (int *) omp_alloc (3072, a);
|
|
if ((((uintptr_t) p) % 64) != 0)
|
|
abort ();
|
|
p[0] = 1;
|
|
p[3071 / sizeof (int)] = 2;
|
|
omp_free (p, a);
|
|
omp_destroy_allocator (a);
|
|
}
|