--- a/RegressionTests__FloatTest.st	Sun Nov 24 11:31:04 2019 +0100
+++ b/RegressionTests__FloatTest.st	Sun Nov 24 14:34:51 2019 +0100
@@ -51,6 +51,35 @@
     self assert:( (a := LongFloat precision) = (b := self class actualPrecisionOf:LongFloat))
                 description:('LongFloat precision: %1 ~~ actual: %2' bindWith:a with:b).
 
+    "/ verify IEEE values
+    self assert:(Float emin == -1022).
+    self assert:(Float emax == 1023).
+    self assert:(Float eBias == 1023).
+
+    self assert:(ShortFloat emin == -126).
+    self assert:(ShortFloat emax == 127).
+    self assert:(ShortFloat eBias == 127).
+
+    self assert:(HalfFloat emin == -14).
+    self assert:(HalfFloat emax == 15).
+    self assert:(HalfFloat eBias == 15).
+
+    self assert:(LongFloat emin == -16382).
+    self assert:(LongFloat emax == 16383).
+    self assert:(LongFloat eBias == 16383).
+
+    self assert:(QuadFloat emin == -16382).
+    self assert:(QuadFloat emax == 16383).
+    self assert:(QuadFloat eBias == 16383).
+
+    self assert:(OctaFloat emin == -262142).
+    self assert:(OctaFloat emax == 262143).
+    self assert:(OctaFloat eBias == 262143).
+
+    self assert:(QDouble emin == Float emin).
+    self assert:(QDouble emax == Float emax).
+    self assert:(QDouble eBias == Float eBias).
+
     "
      self basicNew test00_Precision
     "