From 3dc1925a5cda5de5ac43cd68e71d8630ccc6e0cb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mos=C3=A8=20Giordano?= <mose@gnu.org>
Date: Tue, 4 Jun 2024 19:23:29 +0100
Subject: [PATCH] [mpiexecjl] Return exit code of the root rank

---
 bin/mpiexecjl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bin/mpiexecjl b/bin/mpiexecjl
index 83c7f8801..c313188e0 100755
--- a/bin/mpiexecjl
+++ b/bin/mpiexecjl
@@ -61,7 +61,10 @@ fi
 SCRIPT='
 using MPI
 ENV["JULIA_PROJECT"] = dirname(Base.active_project())
-mpiexec(exe -> run(`$exe $ARGS`))
+mpiexec()
+p = mpiexec(exe -> run(pipeline(`$(exe) $(ARGS)`; stdout, stderr); wait=false))
+wait(p)
+exit(p.exitcode)
 '
 
 if [ -n "${PROJECT_ARG}" ]; then