diff --git a/test/prif_test_s.f90 b/test/prif_test_s.f90
index a794955c..73560915 100644
--- a/test/prif_test_s.f90
+++ b/test/prif_test_s.f90
@@ -42,7 +42,7 @@ pure function both(lhs,rhs) result(lhs_and_rhs)
         end if
       end if first_report
 
-      print '(*(a))', new_line('a'), test%subject()
+      print '(*(a))', new_line(''), test%subject()
 
     end if
 
@@ -55,7 +55,7 @@ pure function both(lhs,rhs) result(lhs_and_rhs)
           block
             integer i
             do i=1,num_tests
-              if (me==1) print '(3x,a)', test_results(i)%characterize()
+              print '(3x,a)', test_results(i)%characterize()
             end do
           end block
         end if