Re: Gnat's Ada.Float_Text_IO.Put problem

["Stefano M." <stefano.m@nospam.tin.it>]

Dennis Lee Bieber wrote:

>         Please supply the EXACT code you are having problems with...
> 
>         Did you even try compiling that? Here's my paraphrased copy of YOUR 
> code, AND the compiler output!

You are right, there was a missing line (since I cleaned the program a 
bit before pasting it on the message).
Anyway:

ste@sim:~/prove$ cat main.adb
with Ada.Float_Text_IO;
with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
      Sample_Float : Float := 10.123;
begin
      Put("Standard 'put' behaviour from Ada.Float_Text_IO: 10,123 = ");
      Ada.Float_Text_IO.Put(Sample_Float);
end Main;
ste@sim:~/prove$ gnatmake main
gcc -c main.adb
gnatbind -x main.ali
gnatlink main.ali
ste@sim:~/prove$ ./main
Standard 'put' behaviour from Ada.Float_Text_IO: 10,123 = -0.00000E+00

As you can see the problem is still there.
I found this thread on one of the ACT mailing lists which shed some 
light on the matter:
http://www.act-europe.fr/mail/chat/2000-07/threads.html#00038
Seems like I'm not the only one experiencing this kind of problem.

> [wulfraed@beastie ada]$ ./fio
> Standard float IO 'put' of 10.123 = 1.01230E+01

Lucky you!

My performance test programs all rely on the float image function to 
display the results... Missing that function, I coded a very na�ve one, 
using the Float'Floor function and Integer casts all around, but I often 
get costraint errors, this problems's gonna drive me crazy.

Stefano