refac(test_s report): tighten variable scope

Author: rouson

src/sourcery/test_s.f90

@@ -5,17 +5,19 @@
 contains
 
   module procedure report
-    integer i
 
     associate(me => this_image())
       if (me==1) print *, new_line('a'), test%subject()
       associate(test_results => test%results())
         associate(num_tests => size(test_results))
           tests = tests + num_tests
           if (me==1) then
-            do i=1,num_tests
-              if (me==1) print *,"   ",test_results(i)%characterize()
-            end do
+            block
+              integer i
+              do i=1,num_tests
+                if (me==1) print *,"   ",test_results(i)%characterize()
+              end do
+            end block
           end if
           block 
             logical, allocatable :: passing_tests(:)