--- a/RegressionTests__FloatTest.st	Sun Nov 24 14:34:51 2019 +0100
+++ b/RegressionTests__FloatTest.st	Sun Nov 24 16:12:05 2019 +0100
@@ -921,6 +921,28 @@
     self assert:( 0.125 asLongFloat exponent = -2 ).
     self assert:( 0.00000011111 asLongFloat exponent = -23 ).
 
+     #( 1.0 1
+        2.0 2
+        3.0 3
+        4.0 4
+        12345.0 12345
+        0.0 0
+        -1.0 -1
+        -2.0 -2
+        -3.0 -3
+        -4.0 -4
+        -12345.0 -12345
+     ) pairWiseDo:[:f :i |
+        self assert:( f exponent = i exponent ).
+        self assert:( f mantissa = i mantissa ).
+        self assert:( f mantissa * (2 raisedTo:f exponent))= f.
+        self assert:( i mantissa * (2 raisedTo:i exponent)) = i.
+
+        self assert:( f exponent = f asShortFloat exponent ).
+        self assert:( f exponent = f asLongFloat exponent ).
+        self assert:( f exponent = f asQDouble exponent ).
+        self assert:( f exponent = f asQuadFloat exponent ).
+     ].
     "
      self basicNew test08_Representation
     "