-- error_demo1.adb
with Ada.text_io;
use  Ada.text_io;

procedure Error_Demo1 is
  v : array(1..3) of Float;
  ans : float := 0.0;

begin

  Put_Line("error_demo1.adb 1.0e-7");
  v(1) := 1.0;
  v(2) := 1.0e-7;
  v(3) := -1.0;
  for i in 1..3 loop
    ans := ans + v(i);
  end loop;
  ans := 1.0e10 * Ans;
  Put_line("ans="&Float'Image(Ans));

  Put_Line("error_demo1.adb 0.5e-7");
  v(2) := 0.5e-7;
  ans := 0.0;
  for I in 1..3 loop
    ans := ans + v(i);
  end loop;
  ans := 1.0e10 * Ans;
  Put_line("ans="&Float'Image(Ans));

  Put_Line("expression ans="&Float'image(1.0e10*((1.0+1.0e-7)-1.0)));
end Error_Demo1;