CocoR/Test2/tests/q_real.LST

Listing:

    1  MODULE QReal;
    2  CONST Pi = 2.5;
    3  VAR r, s : REAL; x : INTEGER; ExitCode : INTEGER;
    4  BEGIN
    5    x := 3;
    6    r := x;
    7    s := 3.5 * 2.0;
    8    r := r + Pi;
    9    IF s > r THEN ExitCode := 11 ELSE ExitCode := 12 END;
   10    IF s = 7.0 THEN ExitCode := ExitCode + 20 END
   11  END QReal.

    0 errors