Initialize HIP early to avoid concurrent initialization

pika-org · Feb 13, 2023 · 070983a · 070983a
1 parent 7e1c1a4
commit 070983a
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/libs/pika/init_runtime/src/init_runtime.cpp b/libs/pika/init_runtime/src/init_runtime.cpp
@@ -43,6 +43,11 @@
 #include <pika/util/get_entry_as.hpp>
 #include <pika/version.hpp>
 
+#if defined(PIKA_HAVE_HIP)
+#include <hip/hip_runtime.h>
+#include <whip.hpp>
+#endif
+
 #if defined(__bgq__)
 #include <cstdlib>
 #endif
@@ -492,6 +497,11 @@ namespace pika {
                     return -1;
                 }
 
+#if defined(PIKA_HAVE_HIP)
+                LPROGRESS_ << "run_local: initialize HIP";
+                whip::check_error(hipInit(0));
+#endif
+
                 // Initialize and start the pika runtime.
                 LPROGRESS_ << "run_local: create runtime";