From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5cc99ba8cc92b94d
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-03-01 10:21:40 PST
Path: 
 nntp.gmd.de!newsserver.jvnc.net!nntpserver.pppl.gov!princeton!gw1.att.com!fnnews.fnal.gov!uwm.edu!lll-winken.llnl.gov!ames!olivea!nntp-hub.barrnet.net!rational.com!puppy.rational.com!kdm
From: kdm@rational.com (Kent Mitchell)
Newsgroups: comp.lang.ada
Subject: Re: Rational/Verdix Number Bug
Date: 1 Mar 1995 18:21:40 GMT
Organization: Rational Software Corporation
Message-ID: <3j2dvk$7e0@rational.rational.com>
References: <3i0nip$b55@rational.rational.com>
 <3il66m$ps1@jabba.ess.harris.com>
 <Mats.Weber-2702951928090001@mlma11.matrix.ch>
NNTP-Posting-Host: puppy.rational.com
X-Newsreader: TIN [version 1.2 PL2]
Date: 1995-03-01T18:21:40+00:00
List-Id: <comp.lang.ada>

Mats Weber (Mats.Weber@matrix.ch) wrote:
: You should try this instead:

:  with text_io;
:  procedure test_float is
:    test : constant := 2147.486348;
:    double_test : constant := 2.0 * test;
:    half_test : constant := test / 2.0;
:    package flt_io is new text_io.float_io(float);
:  begin
:    flt_io.put(test);         -- implicit conversion universal_real -> float
:    text_io.new_line;
:    flt_io.put(double_test);  -- idem
:    text_io.new_line;
:    flt_io.put(half_test);    -- idem
:  end test_float;

To whoever posted this orignally (and my news has deleted the old
articles):

I've been trying to reproduce this problem but I've not yet been successful.
Can you tell me which platform, compiler target, compiler version this
problem can be reproduced on.  I can't seem to get it to happen for me 
on the 6.2 version of VADS on solaris.  Also, do you have a support log
number for this defect so I can look at the log.

--
Kent Mitchell                   | One possible reason that things aren't
Technical Consultant            | going according to plan is .....
Rational Software Corporation   | that there never *was* a plan!