--- a/RegressionTests__FloatTest.st	Mon Nov 25 01:50:33 2019 +0100
+++ b/RegressionTests__FloatTest.st	Mon Nov 25 15:18:06 2019 +0100
@@ -868,6 +868,11 @@
 !
 
 test08_Representation
+    |noQuadFloats noOctaFloats|
+
+    noQuadFloats := UnimplementedFunctionalityError catch:[1.0 asQuadFloat].  
+    noOctaFloats := UnimplementedFunctionalityError catch:[1.0 asOctaFloat].    
+
     self assert: (Float unity class == Float).
     self assert: (ShortFloat unity class == ShortFloat).
     self assert: (LongFloat unity class == LongFloat).
@@ -941,11 +946,18 @@
         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 assert:( f asShortFloat mantissa * (2 raisedTo:f asShortFloat exponent))= f.
         self assert:( f asLongFloat mantissa * (2 raisedTo:f asLongFloat exponent))= f.
         self assert:( f asQDouble mantissa * (2 raisedTo:f asQDouble exponent))= f.
-        self assert:( f asQuadFloat mantissa * (2 raisedTo:f asQuadFloat exponent))= f.
+
+        noQuadFloats ifFalse:[
+            self assert:( f exponent = f asQuadFloat exponent ).
+            self assert:( f asQuadFloat mantissa * (2 raisedTo:f asQuadFloat exponent))= f.
+        ].
+        noOctaFloats ifFalse:[
+            self assert:( f exponent = f asOctaFloat exponent ).
+            self assert:( f asOctaFloat mantissa * (2 raisedTo:f asOctaFloat exponent))= f.
+        ].
      ].
     "
      self basicNew test08_Representation