fix(test): restrict output to image 1

Author: rouson

test/test-assert-subroutine-error-termination.F90

@@ -7,8 +7,15 @@ program test_assert_subroutine_error_termination
 
   integer exit_status
 
-  print *
-  print *,"The assert subroutine"
+#if ASSERT_MULTI_IMAGE
+  if (this_image()==1) then
+#endif
+
+    print *, new_line(''), "The assert subroutine"
+
+#if ASSERT_MULTI_IMAGE
+  end if
+#endif
 
   ! TODO: The following is a HORRIBLY fragile test. 
   ! Specifically, it encodes a bunch of compiler-specific flags into an fpm command, 

test/test-assert-subroutine-normal-termination.F90

@@ -5,16 +5,26 @@ program test_assert_subroutine_normal_termination
   use assert_m, only : assert
   implicit none
 
-  print *
-  print *,"The assert subroutine"
+#if ASSERT_MULTI_IMAGE
+  if (this_image()==1) then
+#endif
+    print *, new_line(''), "The assert subroutine"
+#if ASSERT_MULTI_IMAGE
+  end if
+  sync all
+#endif
 
   call assert(assertion = .true., description = "3 keyword arguments ")
   call assert(            .true., description = "2 keyword arguments ")
   call assert(            .true.,               "no optional argument")
+
 #if ASSERT_MULTI_IMAGE
-    sync all
-    if (this_image()==1) &
+  sync all
+  if (this_image()==1) then
 #endif
     print *,"  passes on not error-terminating when assertion=.true."
+#if ASSERT_MULTI_IMAGE
+  end if
+#endif
 
 end program