diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-07-15 08:33:20 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-07-15 08:33:20 +0200 |
| commit | fff15bad1ab571906c37b88380431768d917dcb0 (patch) | |
| tree | db37c1397b78b5430555ef4c30fa39d6d288551c /libgomp/allocator.c | |
| parent | 8ca07a3072438fa5e76f2b2cea9e51a98760a86f (diff) | |
| download | gcc-fff15bad1ab571906c37b88380431768d917dcb0.zip gcc-fff15bad1ab571906c37b88380431768d917dcb0.tar.gz gcc-fff15bad1ab571906c37b88380431768d917dcb0.tar.bz2 | |
libgomp: Add Fortran routine support for allocators
libgomp/ChangeLog:
* allocator.c: Add ialias for omp_init_allocator and
omp_destroy_allocator.
* configure.ac: Set INTPTR_T_KIND.
* configure: Regenerate.
* Makefile.in: Regenerate.
* testsuite/Makefile.in: Regenerate.
* fortran.c (omp_init_allocator_, omp_destroy_allocator_,
omp_set_default_allocator_, omp_get_default_allocator_): New
functions and ialias_redirect.
* icv.c: Add ialias for omp_set_default_allocator and
omp_get_default_allocator.
* libgomp.map (OMP_5.0.1): Add omp_init_allocator_,
omp_destroy_allocator_, omp_set_default_allocator_ and
omp_get_default_allocator_.
* omp_lib.f90.in: Add allocator traits parameters, declare
allocator routines and add related kind parameters.
* omp_lib.h.in: Likewise.
* testsuite/libgomp.c-c++-common/alloc-2.c: Fix sizeof.
* testsuite/libgomp.fortran/alloc-1.F90: New test.
* testsuite/libgomp.fortran/alloc-2.F90: New test.
* testsuite/libgomp.fortran/alloc-3.F: New test.
* testsuite/libgomp.fortran/alloc-4.f90: New test.
* testsuite/libgomp.fortran/alloc-5.f90: New test.
Diffstat (limited to 'libgomp/allocator.c')
| -rw-r--r-- | libgomp/allocator.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgomp/allocator.c b/libgomp/allocator.c index 76feba7..7166538 100644 --- a/libgomp/allocator.c +++ b/libgomp/allocator.c @@ -202,6 +202,9 @@ omp_destroy_allocator (omp_allocator_handle_t allocator) } } +ialias (omp_init_allocator) +ialias (omp_destroy_allocator) + void * omp_alloc (size_t size, omp_allocator_handle_t allocator) { |