CocoR/Test2/tests/q_real.mod

MODULE QReal;
CONST Pi = 2.5;
VAR r, s : REAL; x : INTEGER; ExitCode : INTEGER;
BEGIN
  x := 3;
  r := x;
  s := 3.5 * 2.0;
  r := r + Pi;
  IF s > r THEN ExitCode := 11 ELSE ExitCode := 12 END;
  IF s = 7.0 THEN ExitCode := ExitCode + 20 END
END QReal.