From 19263f27756e56026fe8d1ac05966b84010ae8d1 Mon Sep 17 00:00:00 2001
From: Andreas Rumpf <rumpf_a@web.de>
Date: Wed, 30 Jun 2021 12:36:24 +0200
Subject: fixes #18400 (#18402)

---
 lib/system/schubfach.nim | 2 +-
 tests/float/tfloat4.nim  | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/system/schubfach.nim b/lib/system/schubfach.nim
index d072cde99..06813f632 100644
--- a/lib/system/schubfach.nim
+++ b/lib/system/schubfach.nim
@@ -359,7 +359,7 @@ proc formatDigits(buffer: var openArray[char]; pos: int; digits: uint32; decimal
       pos = digitsEnd
     elif decimalPoint < numDigits:
       ##  dig.its
-      for i in 0..<8:
+      for i in countdown(7, 0):
         buffer[i + decimalPoint + 1] = buffer[i + decimalPoint]
       buffer[pos+decimalPoint] = '.'
       pos = digitsEnd + 1
diff --git a/tests/float/tfloat4.nim b/tests/float/tfloat4.nim
index 6a87cbe66..5bedca371 100644
--- a/tests/float/tfloat4.nim
+++ b/tests/float/tfloat4.nim
@@ -54,4 +54,10 @@ doAssert 9999999999999999.0 == "9999999999999999.0".parseFloat
 doAssert 0.999999999999999 == ".999999999999999".parseFloat
 doAssert 0.9999999999999999 == ".9999999999999999".parseFloat
 
+# bug #18400
+var s = [-13.888888'f32]
+assert $s[0] == "-13.888888"
+var x = 1.23456789012345'f32
+assert $x == "1.2345679"
+
 echo("passed all tests.")
-- 
cgit 1.4.1-2-gfad0