From 68c7596f7b2c40f673f71a9ceeea804adf6b45af Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Fri, 21 Apr 2023 15:49:35 -0400
Subject: [PATCH] Only call termination message on image 1

---
 src/swiftest/swiftest_driver.f90 | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/swiftest/swiftest_driver.f90 b/src/swiftest/swiftest_driver.f90
index 7b8f103d9..81f1c8c17 100644
--- a/src/swiftest/swiftest_driver.f90
+++ b/src/swiftest/swiftest_driver.f90
@@ -190,5 +190,11 @@ program swiftest_driver
          
    end associate
 
-   call base_util_exit(SUCCESS)
+#ifdef COARRAY
+   if (this_image() == 1) then
+#endif
+      call base_util_exit(SUCCESS)
+#ifdef COARRAY
+   end if ! (this_image() == 1) 
+#endif
 end program swiftest_driver