-- Type float and float IO
with ada.text_io; use ada.text_io;
with ada.float_text_io; use ada.float_text_io;
procedure float1 is
f: Float := 44.44; -- 3. and .3 not allowed. Why?
begin
-- Output images using text_io
put_line(f'img);
put_line(Float'Image(f));
-- Output using float_text_io
put(f);
new_line;
-- float_text_io allows controlling formatting
put(f, fore => 5, aft => 1, exp => 0); -- Keyword parameters.
new_line;
-- fore is left of decimal, aft is right, exp=exponent digits
put(f, fore => 1, aft => 6, exp => 0);
new_line;
end float1;
-- Output:
--| 4.44400E+01
--| 4.44400E+01
--| 4.44400E+01
--| 44.4
--|44.439999