M2compiler-V2/tests/r_real.mod

MODULE RReal;
VAR ExitCode : INTEGER;
    r : REAL;
BEGIN
  ExitCode := 0;
  r := 1.5 + 2.5;
  IF r = 4.0 THEN ExitCode := ExitCode + 1 END;
  r := 10.0 / 4.0;
  IF (r > 2.4) AND (r < 2.6) THEN ExitCode := ExitCode + 10 END;
  r := 3.5 - 1.5 * 2.0;
  IF r = 0.5 THEN ExitCode := ExitCode + 100 END;
  IF -r < -0.25 THEN ExitCode := ExitCode + 1000 END
END RReal.