M2compiler-V1/tests/t_real.mod

MODULE TReal;
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 TReal.