Prev: Ada in Debian 5.0 "Lenny"
Next: File output and buffering
From: Maciej Sobczak on 19 Aug 2008 11:03
Consider:

with Ada.Text_IO;
with Ada.Calendar;

procedure A is

package Duration_IO is new
Ada.Text_IO.Fixed_IO (Ada.Calendar.Day_Duration);

D : Ada.Calendar.Day_Duration := 0.0;

begin
Duration_IO.Put (D);
end A;

The above program produces the following output:

N = 1
0.000000000

I use GNAT 3.4.6 (yes, that old). Was this a compiler/runtime bug?
The output from newer compiler contains only the number.

--
Maciej Sobczak * www.msobczak.com * www.inspirel.com

Database Access Library for Ada: www.inspirel.com/soci-ada
From: Stephen Leake on 20 Aug 2008 07:48
Maciej Sobczak <see.my.homepage(a)gmail.com> writes:

> Consider:
>
> with Ada.Text_IO;
> with Ada.Calendar;
>
> procedure A is
>
> package Duration_IO is new
> Ada.Text_IO.Fixed_IO (Ada.Calendar.Day_Duration);
>
> D : Ada.Calendar.Day_Duration := 0.0;
>
> begin
> Duration_IO.Put (D);
> end A;
>
> The above program produces the following output:
>
> N = 1
> 0.000000000
>
> I use GNAT 3.4.6 (yes, that old). Was this a compiler/runtime bug?

Yes, they delivered the runtime with "debug" pragmas enabled. You can
recompile the runtime.

--
-- Stephe
 | 
Pages: 1
Prev: Ada in Debian 5.0 "Lenny"
Next: File output and buffering