M2compiler-V2/tests/r_real.LST

Listing:

    1  MODULE RReal;
    2  VAR ExitCode : INTEGER;
    3      r : REAL;
    4  BEGIN
    5    ExitCode := 0;
    6    r := 1.5 + 2.5;
    7    IF r = 4.0 THEN ExitCode := ExitCode + 1 END;
    8    r := 10.0 / 4.0;
    9    IF (r > 2.4) AND (r < 2.6) THEN ExitCode := ExitCode + 10 END;
   10    r := 3.5 - 1.5 * 2.0;
   11    IF r = 0.5 THEN ExitCode := ExitCode + 100 END;
   12    IF -r < -0.25 THEN ExitCode := ExitCode + 1000 END
   13  END RReal.

    0 errors