bench: update formatting

---
type: pre_commit_static_analysis_report
description: Results of running static analysis checks when committing changes.
report:
  - task: lint_filenames
    status: passed
  - task: lint_editorconfig
    status: passed
  - task: lint_markdown
    status: na
  - task: lint_package_json
    status: na
  - task: lint_repl_help
    status: na
  - task: lint_javascript_src
    status: na
  - task: lint_javascript_cli
    status: na
  - task: lint_javascript_examples
    status: na
  - task: lint_javascript_tests
    status: na
  - task: lint_javascript_benchmarks
    status: na
  - task: lint_python
    status: na
  - task: lint_r
    status: na
  - task: lint_c_src
    status: na
  - task: lint_c_examples
    status: na
  - task: lint_c_benchmarks
    status: na
  - task: lint_c_tests_fixtures
    status: na
  - task: lint_shell
    status: na
  - task: lint_typescript_declarations
    status: na
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: kgryte

tools/snippets/benchmark/fortran/benchmark.f

@@ -99,11 +99,11 @@ subroutine print_results( elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f0.9)') elapsed
+    write (str, '(f15.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f0.9)') rate
+    write( str, '(f15.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
@@ -177,4 +177,4 @@ subroutine main()
     end do
     call print_summary( repeats, repeats )
   end subroutine main
-end program bench
+end program bench

tools/snippets/benchmark/fortran/native/benchmark.f

@@ -99,11 +99,11 @@ subroutine print_results( elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f0.9)') elapsed
+    write (str, '(f15.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f0.9)') rate
+    write( str, '(f15.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
@@ -177,4 +177,4 @@ subroutine main()
     end do
     call print_summary( repeats, repeats )
   end subroutine main
-end program bench
+end program bench

tools/snippets/benchmark/fortran/native/benchmark.length.f

@@ -103,11 +103,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f0.9)') elapsed
+    write (str, '(f15.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f0.9)') rate
+    write( str, '(f15.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
@@ -214,4 +214,4 @@ subroutine main()
     end do
     call print_summary( count, count )
   end subroutine main
-end program bench
+end program bench