Merge pull request fortran-lang#89 from pdebuyl/qsavetxt_format_string

Use explicit formatting in qsavetxt
jvdp1 · Jan 6, 2020 · 57d99f8 · 57d99f8
2 parents c3e4816 + d845f2d
commit 57d99f8
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/stdlib_experimental_io.f90 b/src/stdlib_experimental_io.f90
@@ -218,9 +218,12 @@ subroutine qsavetxt(filename, d)
 ! call savetxt("log.txt", data)
 
 integer :: s, i
+character(len=14) :: format_string
+
+write(format_string, '(a1,i06,a7)') '(', size(d, 2), 'f40.34)'
 s = open(filename, "w")
 do i = 1, size(d, 1)
-    write(s, *) d(i, :)
+    write(s, format_string) d(i, :)
 end do
 close(s)
 end subroutine