From 2ffdbb67aa6b3228c9eb17278f78c4956ee90c46 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Sun, 29 Dec 2024 22:47:54 -0500 Subject: [PATCH] chore(prif_test_s): rm redundant logic in report --- test/prif_test_s.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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