Ada.Text_IO.Fixed_IO - strange prefix in output

Ada.Text_IO.Fixed_IO - strange prefix in output

[Maciej Sobczak]

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

Re: Ada.Text_IO.Fixed_IO - strange prefix in output

[Stephen Leake]

Maciej Sobczak <see.my.homepage@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