--- a/RegressionTests__QuadFloatTest.st	Sun Nov 17 16:21:38 2019 +0100
+++ b/RegressionTests__QuadFloatTest.st	Thu Nov 21 23:38:47 2019 +0100
@@ -5,10 +5,10 @@
 "{ NameSpace: RegressionTests }"
 
 TestCase subclass:#QuadFloatTest
-        instanceVariableNames:'longFloatToQuadFloatSupported'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'tests-Regression-Numbers'
+	instanceVariableNames:'longFloatToQuadFloatSupported'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Numbers'
 !
 
 !QuadFloatTest class methodsFor:'documentation'!
@@ -768,6 +768,25 @@
 
     "Modified: / 02-08-2011 / 18:34:39 / cg"
     "Modified: / 08-06-2019 / 13:53:48 / Claus Gittinger"
+!
+
+test09_InstanceCreation
+    |qI qD d i|
+
+    i := 1.
+    qI := i asQuadFloat.
+    d := 1.0.
+    qD := d asQuadFloat.
+    self assert:(qI = qD).
+    self assert:(qI asFloat = 1.0).
+    self assert:(qD asFloat = 1.0).
+
+    "
+     self basicNew test09_InstanceCreation
+    "
+
+    "Modified: / 03-05-2012 / 18:47:21 / cg"
+    "Modified: / 07-06-2019 / 03:22:43 / Claus Gittinger"
 ! !
 
 !QuadFloatTest class methodsFor:'documentation'!