Float conversion

[Henrique <henriquemagalhaes@gmail.com>]

Hi,

I have some problems in converting float variables in Ada. Look at the
code below.

Why var4 is not equal var1?

Thanks.

--
Execution results:
--

var3: =
var4: >

--
Code:
--

with Ada.Text_IO, Ada.Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;

procedure Test is

  type My_Float is digits 6;

  CONVERSION_CONSTANT  : constant My_Float := 6076.11;
  CONVERSION_CONSTANT2 : constant My_Float := 1.0 /
CONVERSION_CONSTANT;

  package Float_Text_IO is new Ada.Text_IO.Float_IO (Long_Float);
  use Float_Text_IO;

  var1: My_Float := 999.9;
  var2: My_Float := var1*CONVERSION_CONSTANT;
  var3: My_Float := var2/CONVERSION_CONSTANT;
  var4: My_Float := var2*CONVERSION_CONSTANT2;
begin
  Put("var3: ");
  if var3 = var1 then
    Put("=");
  elsif var3 > var1 then
    Put(">");
  else
    Put("<");
  end if;

  New_Line;
  Put("var4: ");
  if var4 = var1 then
    Put("=");
  elsif var4 > var1 then
    Put(">");
  else
    Put("<");
  end if;
end Test;