Increase number of positions for argi

gha3mi · Dec 30, 2023 · 3f85ffb · 3f85ffb
1 parent c24a091
commit 3f85ffb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/forbenchmark_coarray.f90 b/src/forbenchmark_coarray.f90
@@ -335,7 +335,7 @@ impure subroutine write_benchmark(this, imark)
 
       if (this_image() == 1) then
       write(fmt2,'(a,g0,a)')&
-         '(a,',lm,'x,3x,F12.6,3x,E20.14,3x,E20.14,3x,E20.14,3x,E20.14,3x,g8.0,3x,*(g8.0,3x))'
+         '(a,',lm,'x,3x,F12.6,3x,E20.14,3x,E20.14,3x,E20.14,3x,E20.14,3x,g8.0,3x,*(g20.0,3x))'
 
       inquire(file=this%filename, exist=exist, iostat=iostat)
       if (iostat /= 0 .or. .not. exist) then

diff --git a/src/forbenchmark_default.f90 b/src/forbenchmark_default.f90
@@ -217,7 +217,7 @@ impure subroutine write_benchmark(this, imark)
       open (newunit = nunit, file = this%filename, access = 'append')
 
       lm = 20-len_trim(this%marks(imark)%method)
-      write(fmt,'(a,g0,a)') '(a,',lm,'x,3x,F12.6,3x,E20.14,3x,E20.14,3x,g8.0,3x,*(g8.0,3x))'
+      write(fmt,'(a,g0,a)') '(a,',lm,'x,3x,F12.6,3x,E20.14,3x,E20.14,3x,g8.0,3x,*(g20.0,3x))'
 
       write(nunit,fmt) &
          this%marks(imark)%method,&