Use omp_get_max_active_levels() when supported

japlews · Dec 13, 2023 · a996c12 · a996c12
1 parent 24b6484
commit a996c12
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/core/src/OpenMP/Kokkos_OpenMP_Instance.hpp b/core/src/OpenMP/Kokkos_OpenMP_Instance.hpp
@@ -45,8 +45,13 @@ namespace Kokkos {
 namespace Impl {
 
 inline bool execute_in_serial(OpenMP const& space = OpenMP()) {
-  return (OpenMP::in_parallel(space) &&
-          !(omp_get_nested() && (omp_get_level() == 1)));
+  return (OpenMP::in_parallel(space) && !(
+#if _OPENMP >= 201511
+                                            (omp_get_max_active_levels() > 1)
+#else
+                                            omp_get_nested()
+#endif
+                                            && (omp_get_level() == 1)));
 }
 
 }  // namespace Impl