with ada.text_io;
with ada.float_text_io;
procedure testFloatOutput is

i : integer;
a,c : float;
begin
  i := 5;
  a := 34.98715;
  c := float(i*5);
  ada.float_text_io.put (a);
  ada.text_io.new_line;
  ada.float_text_io.put (item => a);
  ada.text_io.new_line;
  ada.float_text_io.put (item => a, aft => 3);
  ada.text_io.new_line;
  ada.float_text_io.put (item => a, fore => 2, aft => 3 );
  ada.text_io.new_line;
  ada.float_text_io.put (item => a, fore => 2, aft => 3, exp => 0);  
  end testFloatOutput;