agpl_1.0.0_b5da3320/src/tests/t026_rounding.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
with Ada.Numerics;
with Agpl.Conversions;
with Agpl.Text_Io; use Agpl.Text_Io;

procedure T026_Rounding is
begin
   Put_Line ("Starting...");

   for I in 0 .. 10 loop
      Put_Line
        (Agpl.Conversions.To_String (Long_Long_Float'(Ada.Numerics.Pi), I));
   end loop;
   for I in 0 .. 10 loop
      Put_Line
        (Agpl.Conversions.To_String (Long_Long_Float'(-Ada.Numerics.Pi), I));
   end loop;

   Put_Line ("Done.");
end T026_Rounding;