Merge pull request #146 from BerkeleyLab/fix-#144

Fixes #144

Author: rouson

src/julienne/julienne_test_harness_s.F90

@@ -4,7 +4,7 @@
 #include "language-support.F90"
 
 submodule(julienne_test_harness_m) julienne_test_harness_s
-  use iso_fortran_env, only : int64, real64
+  use iso_fortran_env, only : int64, real64, output_unit
   use julienne_command_line_m, only : command_line_t
   use julienne_string_m, only : string_t
   implicit none
@@ -47,8 +47,12 @@
           print *
           print '(*(a,:,i0))', "_____ ", passes, " of ", tests, " tests passed. ", skips, " tests were skipped _____"
           print *
+          flush(output_unit)
         end if
-        if (passes + skips /= tests .and. me==1) error stop "Some tests failed."
+#if HAVE_MULTI_IMAGE_SUPPORT
+        sync all
+#endif
+        if (passes + skips /= tests) error stop "Some tests failed."
       end associate
 
     end procedure