--* From SMWATT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Thu Jun  3 23:23:31 1993
--* Received: from yktvmh.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA11862; Thu, 3 Jun 1993 23:23:31 -0400
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 4666; Thu, 03 Jun 93 23:24:05 EDT
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.7242.Jun.03.23:24:04.-0400>
--*           for asbugs@watson; Thu, 03 Jun 93 23:24:05 -0400
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 7240; Thu, 3 Jun 1993 23:24:04 EDT
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Thu, 03 Jun 93 23:24:04 EDT
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA12209; Thu, 3 Jun 1993 23:24:09 -0400
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA17663; Thu, 3 Jun 1993 23:26:13 -0400
--* Date: Thu, 3 Jun 1993 23:26:13 -0400
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9306040326.AA17663@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: Inlining bug with double floats [/tmp/floatx.as][v28.Ea]

--@ Fixed  by:  JMS   Thu Oct 14 14:39:55 1993 
--@ Tested by:  float0.as 
--@ Summary:    Fixed DFloatSprint in util.c 


--+ With inlining turned on, passing double floats as parameters is broken.
--+ ?
--+ a
--+ With inlining turned on, passing double floats as parameters is broken.
--+ $ asharp -OQinline-all -r floatx.as
--+ 1.2345680000000001
--+ $ asharp -r floatx.as
--+ 1.2345678901234567
#include "aslib.as"

f: DoubleFloat := 1.234567890123456789
print(f)()