-- 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