--- a/RegressionTests__NumberTest.st	Tue Oct 10 16:26:01 2017 +0200
+++ b/RegressionTests__NumberTest.st	Tue Oct 10 16:30:48 2017 +0200
@@ -3,10 +3,10 @@
 "{ NameSpace: RegressionTests }"
 
 TestCase subclass:#NumberTest
-        instanceVariableNames:'a b'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'tests-Regression-Numbers'
+	instanceVariableNames:'a b'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Numbers'
 !
 
 
@@ -132,7 +132,9 @@
 testPrintf_FixedPoint
     "/ FixedPoint
     
-    self assert:( (PrintfScanf printf:'%4f' argument:FixedPoint pi) = '3.141593' ).
+    self assert:( (PrintfScanf printf:'%.4f' argument:FixedPoint pi) = '3.1416' ).
+    self assert:( (PrintfScanf printf:'%.8f' argument:FixedPoint pi)  = '3.14159265' ).
+    self assert:( (PrintfScanf printf:'%f' argument:FixedPoint pi)    = '3.141593' ).
 
     "/ too small
     self assert:( (FixedPoint pi printfPrintString:'%4Lf') = '3.141593' ).
@@ -148,12 +150,15 @@
     self assert:( (FixedPoint pi printfPrintString:'%-9Lf') = '3.141593 ' ).
 
     "Created: / 10-10-2017 / 12:36:21 / cg"
+    "Modified: / 10-10-2017 / 16:29:20 / cg"
 !
 
 testPrintf_Float
     "/ Float
     
-    self assert:( (PrintfScanf printf:'%4f' argument:Float pi)      = '3.141593' ).
+    self assert:( (PrintfScanf printf:'%.4f' argument:Float pi)      = '3.1416' ).
+    self assert:( (PrintfScanf printf:'%.8f' argument:Float pi)  = '3.14159265' ).
+    self assert:( (PrintfScanf printf:'%f' argument:Float pi)    = '3.141593' ).
 
     "/ too small
     self assert:( (Float pi printfPrintString:'%4f') = '3.141593' ).
@@ -169,12 +174,15 @@
     self assert:( (Float pi printfPrintString:'%-9f') = '3.141593 ' ).
 
     "Created: / 10-10-2017 / 12:34:51 / cg"
+    "Modified: / 10-10-2017 / 16:29:07 / cg"
 !
 
 testPrintf_Fraction
     "/ Fraction
     
-    self assert:( (PrintfScanf printf:'%4f' argument:Fraction pi) = '3.141593' ).
+    self assert:( (PrintfScanf printf:'%.4f' argument:Fraction pi) = '3.1416' ).
+    self assert:( (PrintfScanf printf:'%.8f' argument:Fraction pi)  = '3.14159265' ).
+    self assert:( (PrintfScanf printf:'%f' argument:Fraction pi)    = '3.141593' ).
 
     "/ too small
     self assert:( (Fraction pi printfPrintString:'%4Lf') = '3.141593' ).
@@ -190,12 +198,45 @@
     self assert:( (Fraction pi printfPrintString:'%-9Lf') = '3.141593 ' ).
 
     "Created: / 10-10-2017 / 12:37:25 / cg"
+    "Modified: / 10-10-2017 / 16:29:27 / cg"
+!
+
+testPrintf_LargeFloat
+    "/ LongFloat
+    
+    self assert:( (PrintfScanf printf:'%.4f' argument:LargeFloat pi)  = '3.1416' ).
+    self assert:( (PrintfScanf printf:'%.8f' argument:LargeFloat pi)  = '3.14159265' ).
+    self assert:( (PrintfScanf printf:'%f' argument:LargeFloat pi)  = '3.141593' ).
+
+    "/ LongFloat
+
+    "/ too small
+    self assert:( (LargeFloat pi printfPrintString:'%4Lf') = '3.141593' ).
+    self assert:( (LargeFloat pi printfPrintString:'%5Lf') = '3.141593' ).
+    self assert:( (LargeFloat pi printfPrintString:'%6Lf') = '3.141593' ).
+    self assert:( (LargeFloat pi printfPrintString:'%7Lf') = '3.141593' ).
+    "/ fit
+    self assert:( (LargeFloat pi printfPrintString:'%8Lf') = '3.141593' ).
+    self assert:( (LargeFloat pi printfPrintString:'%4.2Lf') = '3.14' ).
+    self assert:( (LargeFloat pi printfPrintString:'%4.3Lf') = '3.142' ).
+    self assert:( (LargeFloat pi printfPrintString:'%4.4Lf') = '3.1416' ).
+    self assert:( (LargeFloat pi printfPrintString:'%4.5Lf') = '3.14159' ).
+    self assert:( (LargeFloat pi printfPrintString:'%4.6Lf') = '3.141593' ).
+    self assert:( (LargeFloat pi printfPrintString:'%4.20Lf') = '3.14159265358979323846' ).
+    "/ left filled
+    self assert:( (LargeFloat pi printfPrintString:'%9Lf') = ' 3.141593' ).
+    "/ right filled
+    self assert:( (LargeFloat pi printfPrintString:'%-9Lf') = '3.141593 ' ).
+
+    "Created: / 10-10-2017 / 16:25:25 / cg"
 !
 
 testPrintf_LongFloat
     "/ LongFloat
     
-    self assert:( (PrintfScanf printf:'%4f' argument:LongFloat pi)  = '3.14159265' ).
+    self assert:( (PrintfScanf printf:'%.4f' argument:LongFloat pi)  = '3.1416' ).
+    self assert:( (PrintfScanf printf:'%.8f' argument:LongFloat pi)  = '3.14159265' ).
+    self assert:( (PrintfScanf printf:'%f' argument:LongFloat pi)  = '3.14159265' ).
 
     "/ LongFloat
 
@@ -213,6 +254,7 @@
     self assert:( (LongFloat pi printfPrintString:'%-9Lf') = '3.141593 ' ).
 
     "Created: / 10-10-2017 / 12:35:40 / cg"
+    "Modified: / 10-10-2017 / 16:29:56 / cg"
 !
 
 testPrintf_QDouble
@@ -222,7 +264,9 @@
         skipIf:(OperatingSystem isUNIXlike and:[ExternalAddress pointerSize = 4])
         description:'Fails under Linux32'.
 
-    self assert:( (PrintfScanf printf:'%4f' argument:QDouble pi)    = '3.14159265358979323846' ).
+    self assert:( (PrintfScanf printf:'%.4f' argument:QDouble pi)  = '3.1416' ).
+    self assert:( (PrintfScanf printf:'%.8f' argument:QDouble pi)  = '3.14159265' ).
+    self assert:( (PrintfScanf printf:'%f' argument:QDouble pi)    = '3.14159265358979323846' ).
     "/ QuadDouble
 
     "/ too small
@@ -244,10 +288,12 @@
     self assert:( (QDouble pi printfPrintString:'%-30Lf') = '3.14159265358979323846        ' ).
 
     "Created: / 10-10-2017 / 12:24:22 / cg"
+    "Modified: / 10-10-2017 / 16:28:51 / cg"
 !
 
 testPrintf_ShortFloat
-    self assert:( (PrintfScanf printf:'%4f' argument:ShortFloat pi) = '3.14159' ).
+    self assert:( (PrintfScanf printf:'%.4f' argument:ShortFloat pi) = '3.1416' ).
+    self assert:( (PrintfScanf printf:'%f' argument:ShortFloat pi) = '3.14159' ).
 
     "/ ShortFloat
 
@@ -266,6 +312,7 @@
     self assert:( (ShortFloat pi printfPrintString:'%-9f') = '3.141593 ' ).
 
     "Created: / 10-10-2017 / 12:35:12 / cg"
+    "Modified: / 10-10-2017 / 16:30:23 / cg"
 ! !
 
 !NumberTest methodsFor:'tests-reading'!