diff options
Diffstat (limited to 'libgomp/fortran.c')
| -rw-r--r-- | libgomp/fortran.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/libgomp/fortran.c b/libgomp/fortran.c index 4ec39c4..07f9765 100644 --- a/libgomp/fortran.c +++ b/libgomp/fortran.c @@ -83,6 +83,7 @@ ialias_redirect (omp_get_partition_place_nums) ialias_redirect (omp_set_default_device) ialias_redirect (omp_get_default_device) ialias_redirect (omp_get_num_devices) +ialias_redirect (omp_get_device_num) ialias_redirect (omp_get_num_teams) ialias_redirect (omp_get_team_num) ialias_redirect (omp_is_initial_device) @@ -94,6 +95,7 @@ ialias_redirect (omp_init_allocator) ialias_redirect (omp_destroy_allocator) ialias_redirect (omp_set_default_allocator) ialias_redirect (omp_get_default_allocator) +ialias_redirect (omp_display_env) #endif #ifndef LIBGOMP_GNU_SYMBOL_VERSIONING @@ -599,6 +601,12 @@ omp_get_initial_device_ (void) } int32_t +omp_get_device_num_ (void) +{ + return omp_get_device_num (); +} + +int32_t omp_get_max_task_priority_ (void) { return omp_get_max_task_priority (); @@ -736,3 +744,19 @@ omp_get_default_allocator_ () { return (intptr_t) omp_get_default_allocator (); } + +#ifndef LIBGOMP_OFFLOADED_ONLY + +void +omp_display_env_ (const int32_t *verbose) +{ + omp_display_env (*verbose); +} + +void +omp_display_env_8_ (const int64_t *verbose) +{ + omp_display_env (!!*verbose); +} + +#endif /* LIBGOMP_OFFLOADED_ONLY */ |