M2compiler-V2/tests/r_rcmp.LST

Listing:

    1  MODULE RCmp;
    2  (* Real comparison regression test: < > <= >= must emit D5
    3     (0D5H); they once emitted bare stack juggling, leaving operand
    4     bits as the boolean (negative-vs-zero failures). ExitCode = 31:
    5     bits 0-4 for the five true comparisons, none of the 64..4096
    6     false-positive bits. *)
    7  VAR ExitCode : INTEGER;
    8      a, b, c, d, e, f, g, h, i, j, k, l : REAL;
    9  BEGIN
   10    a := -1.0; b := 0.0;
   11    c := 0.0; d := -1.0;
   12    e := -1.0; f := -1.0;
   13    g := 0.0; h := 0.0;
   14    i := -1.0; j := 0.0;
   15    k := i * j;
   16    l := 0.0;
   17    ExitCode := 0;
   18    IF a < b THEN ExitCode := ExitCode + 1 END;
   19    IF c > d THEN ExitCode := ExitCode + 2 END;
   20    IF e = f THEN ExitCode := ExitCode + 4 END;
   21    IF g = h THEN ExitCode := ExitCode + 8 END;
   22    IF k = l THEN ExitCode := ExitCode + 16 END;
   23    IF a > b THEN ExitCode := ExitCode + 32 END;
   24    IF a = b THEN ExitCode := ExitCode + 64 END;
   25    IF c < d THEN ExitCode := ExitCode + 128 END;
   26    IF c = d THEN ExitCode := ExitCode + 256 END;
   27    IF e < f THEN ExitCode := ExitCode + 512 END;
   28    IF e > f THEN ExitCode := ExitCode + 1024 END;
   29    IF k < l THEN ExitCode := ExitCode + 2048 END;
   30    IF k > l THEN ExitCode := ExitCode + 4096 END
   31  END RCmp.

    0 errors