Re: fixed type (delta) in ada

[Al Christians <achrist@easystreet.com>]

How about this one:

---------------------------------------------------------

with Ada.Text_Io;

procedure Money_Test is 

   -- type money is delta 0.01 digits 10 range 0.0..10_000_000.00;
   type Money is delta 0.01 range 0.0 .. 10_000_000.00; 

   -- package money_io is new ada.text_io.decimal_io(money);
   package Money_Io is new Ada.Text_Io.Fixed_Io(Money);

   F : Long_Float := 0.0300000000000000;  

begin
   Money_Io.Put(Money(F));                   -- GNAT 3.12p Puts 0.03
   Money_Io.Put(Money(0.0300000000000000));  -- GNAT 3.12p Puts 0.02 
end Money_Test;

----------------------------------------------------------------

I suppose that 0.02 and 0.03 are each allowed, but I find the
inconsistency a little unexpected.


Al  


Robert Dewar wrote:
> 
> In article <38409C87.69EC865@easystreet.com>,
>   Al Christians <achrist@easystreet.com> wrote:
> > > No, the output should be 71.3, and this is what is expected.
> >
> > So, why does GNAT 3.12p give 68.55?
> >
> > Al
> >
> 
> That's also an allowed output value in this case!
>