@@ -208,12 +208,9 @@ subroutine console_logger_log_drive_result(this, driveresult)
208208
209209 maxitems = maxval ([sum (driveresult% suitestats, dim= 1 ), sum (driveresult% teststats)])
210210 numfieldwidth = len (str(maxitems))
211- call log_summary_(" # Suite set-ups" , driveresult% suiteresults(1 , :),&
212- & driveresult% suitestats(:, 1 ), numfieldwidth)
213- call log_summary_(" # Suite tear-downs" , driveresult% suiteresults(2 , :),&
214- & driveresult% suitestats(:, 2 ), numfieldwidth)
215- call log_summary_(" # Test runs" , driveresult% testresults, driveresult% teststats,&
216- & numfieldwidth)
211+ call log_summary_(" # Suite set-ups" , driveresult% suitestats(:, 1 ), numfieldwidth)
212+ call log_summary_(" # Suite tear-downs" , driveresult% suitestats(:, 2 ), numfieldwidth)
213+ call log_summary_(" # Test runs" , driveresult% teststats, numfieldwidth)
217214 call log_success_(driveresult% successful)
218215
219216 end subroutine console_logger_log_drive_result
@@ -366,9 +363,8 @@ end subroutine write_failure_info_
366363
367364
368365 ! ! Logs test summary
369- subroutine log_summary_ (header , testresults , teststats , numfieldwidth )
366+ subroutine log_summary_ (header , teststats , numfieldwidth )
370367 character (* ), intent (in ) :: header
371- type (test_result), intent (in ) :: testresults(:)
372368 integer , intent (in ) :: teststats(:)
373369 integer , intent (in ) :: numfieldwidth
374370
0 commit comments