diff options
| author | Kwok Cheung Yeung <kcy@codesourcery.com> | 2020-10-07 09:34:32 -0700 |
|---|---|---|
| committer | Kwok Cheung Yeung <kcy@codesourcery.com> | 2020-10-13 13:21:02 -0700 |
| commit | 8949b985dbaf07d433bd57d2883e1e5414f20e75 (patch) | |
| tree | 720277ee543e8dd32777b172aa37f5848a9f12fa /libgomp/fortran.c | |
| parent | 5204cc561a8d3c1a671969715ceb507ece8edef7 (diff) | |
| download | gcc-8949b985dbaf07d433bd57d2883e1e5414f20e75.zip gcc-8949b985dbaf07d433bd57d2883e1e5414f20e75.tar.gz gcc-8949b985dbaf07d433bd57d2883e1e5414f20e75.tar.bz2 | |
openmp: Add support for the omp_get_supported_active_levels runtime library routine
This patch implements the omp_get_supported_active_levels runtime routine
from the OpenMP 5.0 specification, which returns the maximum number of
active nested parallel regions supported by this implementation. The
current maximum (set using the omp_set_max_active_levels routine or the
OMP_MAX_ACTIVE_LEVELS environment variable) cannot exceed this number.
2020-10-13 Kwok Cheung Yeung <kcy@codesourcery.com>
libgomp/
* env.c (gomp_max_active_levels_var): Initialize to
gomp_supported_active_levels.
(initialize_env): Limit gomp_max_active_levels_var to be at most
equal to gomp_supported_active_levels.
* fortran.c (omp_get_supported_active_levels): Add ialias_redirect.
(omp_get_supported_active_levels_): New.
* icv.c (omp_set_max_active_levels): Limit gomp_max_active_levels_var
to at most equal to gomp_supported_active_levels.
(omp_get_supported_active_levels): New.
* libgomp.h (gomp_supported_active_levels): New.
* libgomp.map (OMP_5.0.1): Add omp_get_supported_active_levels and
omp_get_supported_active_levels_.
* libgomp.texi (omp_get_supported_active_levels): New.
(omp_set_max_active_levels): Update. Add reference to
omp_get_supported_active_levels.
* omp.h.in (omp_get_supported_active_levels): New.
* omp_lib.f90.in (omp_get_supported_active_levels): New.
* omp_lib.h.in (omp_get_supported_active_levels): New.
* testsuite/libgomp.c/lib-2.c (main): Check omp_get_max_active_levels
against omp_get_supported_active_levels.
* testsuite/libgomp.fortran/lib4.f90 (lib4): Likewise.
Diffstat (limited to 'libgomp/fortran.c')
| -rw-r--r-- | libgomp/fortran.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libgomp/fortran.c b/libgomp/fortran.c index 9d838b3..029dec1 100644 --- a/libgomp/fortran.c +++ b/libgomp/fortran.c @@ -63,6 +63,7 @@ ialias_redirect (omp_get_schedule) ialias_redirect (omp_get_thread_limit) ialias_redirect (omp_set_max_active_levels) ialias_redirect (omp_get_max_active_levels) +ialias_redirect (omp_get_supported_active_levels) ialias_redirect (omp_get_level) ialias_redirect (omp_get_ancestor_thread_num) ialias_redirect (omp_get_team_size) @@ -418,6 +419,12 @@ omp_get_max_active_levels_ (void) } int32_t +omp_get_supported_active_levels_ (void) +{ + return omp_get_supported_active_levels (); +} + +int32_t omp_get_level_ (void) { return omp_get_level (); |