Index: runtime/src/include/30/omp.h.var =================================================================== --- runtime/src/include/30/omp.h.var +++ runtime/src/include/30/omp.h.var @@ -78,6 +78,7 @@ extern int __KAI_KMPC_CONVENTION omp_get_thread_num (void); extern int __KAI_KMPC_CONVENTION omp_get_num_procs (void); extern int __KAI_KMPC_CONVENTION omp_in_parallel (void); + extern int __KAI_KMPC_CONVENTION omp_in_final (void); extern int __KAI_KMPC_CONVENTION omp_get_active_level (void); extern int __KAI_KMPC_CONVENTION omp_get_level (void); extern int __KAI_KMPC_CONVENTION omp_get_ancestor_thread_num (int); Index: runtime/src/include/30/omp_lib.h.var =================================================================== --- runtime/src/include/30/omp_lib.h.var +++ runtime/src/include/30/omp_lib.h.var @@ -86,6 +86,11 @@ logical (kind=omp_logical_kind) omp_in_parallel end function omp_in_parallel + function omp_in_final() + import + logical (kind=omp_logical_kind) omp_in_final + end function omp_in_final + function omp_get_dynamic() import logical (kind=omp_logical_kind) omp_get_dynamic @@ -364,6 +369,7 @@ !dec$ attributes alias:'OMP_GET_THREAD_NUM'::omp_get_thread_num !dec$ attributes alias:'OMP_GET_NUM_PROCS'::omp_get_num_procs !dec$ attributes alias:'OMP_IN_PARALLEL'::omp_in_parallel +!dec$ attributes alias:'OMP_IN_FINAL'::omp_in_final !dec$ attributes alias:'OMP_GET_DYNAMIC'::omp_get_dynamic !dec$ attributes alias:'OMP_GET_NESTED'::omp_get_nested !dec$ attributes alias:'OMP_GET_THREAD_LIMIT'::omp_get_thread_limit @@ -431,6 +437,7 @@ !dec$ attributes alias:'_OMP_GET_THREAD_NUM'::omp_get_thread_num !dec$ attributes alias:'_OMP_GET_NUM_PROCS'::omp_get_num_procs !dec$ attributes alias:'_OMP_IN_PARALLEL'::omp_in_parallel +!dec$ attributes alias:'_OMP_IN_FINAL'::omp_in_final !dec$ attributes alias:'_OMP_GET_DYNAMIC'::omp_get_dynamic !dec$ attributes alias:'_OMP_GET_NESTED'::omp_get_nested !dec$ attributes alias:'_OMP_GET_THREAD_LIMIT'::omp_get_thread_limit @@ -501,6 +508,7 @@ !dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num !dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs !dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel +!dec$ attributes alias:'omp_in_final_'::omp_in_final !dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic !dec$ attributes alias:'omp_get_nested_'::omp_get_nested !dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit @@ -571,6 +579,7 @@ !dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num !dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs !dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel +!dec$ attributes alias:'_omp_in_final_'::omp_in_final !dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic !dec$ attributes alias:'_omp_get_nested_'::omp_get_nested !dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit Index: runtime/src/include/30/omp_lib.f90.var =================================================================== --- runtime/src/include/30/omp_lib.f90.var +++ runtime/src/include/30/omp_lib.f90.var @@ -90,6 +90,11 @@ logical (kind=omp_logical_kind) omp_in_parallel end function omp_in_parallel + function omp_in_final() bind(c) + use omp_lib_kinds + logical (kind=omp_logical_kind) omp_in_final + end function omp_in_final + function omp_get_dynamic() bind(c) use omp_lib_kinds logical (kind=omp_logical_kind) omp_get_dynamic Index: runtime/src/include/40/omp.h.var =================================================================== --- runtime/src/include/40/omp.h.var +++ runtime/src/include/40/omp.h.var @@ -54,6 +54,7 @@ extern int __KAI_KMPC_CONVENTION omp_get_thread_num (void); extern int __KAI_KMPC_CONVENTION omp_get_num_procs (void); extern int __KAI_KMPC_CONVENTION omp_in_parallel (void); + extern int __KAI_KMPC_CONVENTION omp_in_final (void); extern int __KAI_KMPC_CONVENTION omp_get_active_level (void); extern int __KAI_KMPC_CONVENTION omp_get_level (void); extern int __KAI_KMPC_CONVENTION omp_get_ancestor_thread_num (int); Index: runtime/src/include/40/omp_lib.h.var =================================================================== --- runtime/src/include/40/omp_lib.h.var +++ runtime/src/include/40/omp_lib.h.var @@ -101,6 +101,11 @@ logical (kind=omp_logical_kind) omp_in_parallel end function omp_in_parallel + function omp_in_final() bind(c) + import + logical (kind=omp_logical_kind) omp_in_final + end function omp_in_final + function omp_get_dynamic() bind(c) import logical (kind=omp_logical_kind) omp_get_dynamic @@ -444,6 +449,7 @@ !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel +!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit @@ -512,6 +518,7 @@ !$omp declare target(omp_get_thread_num ) !$omp declare target(omp_get_num_procs ) !$omp declare target(omp_in_parallel ) +!$omp declare target(omp_in_final ) !$omp declare target(omp_get_dynamic ) !$omp declare target(omp_get_nested ) !$omp declare target(omp_get_thread_limit ) Index: runtime/src/include/40/omp_lib.f90.var =================================================================== --- runtime/src/include/40/omp_lib.f90.var +++ runtime/src/include/40/omp_lib.f90.var @@ -112,6 +112,11 @@ logical (kind=omp_logical_kind) omp_in_parallel end function omp_in_parallel + function omp_in_final() bind(c) + use omp_lib_kinds + logical (kind=omp_logical_kind) omp_in_final + end function omp_in_final + function omp_get_dynamic() bind(c) use omp_lib_kinds logical (kind=omp_logical_kind) omp_get_dynamic