M2compiler-V3/tools/m2make/tests/Main.mod

MODULE Main;
(* Sample program for M2make tests (V3 flavor: SysIO + ExitCode). *)
FROM Calc IMPORT Add;
IMPORT SysIO;
VAR ExitCode: INTEGER;
VAR r: INTEGER;
BEGIN
  r := Add(20, 22);
  SysIO.WriteInt(r);
  SysIO.WriteLn;
  ExitCode := 0
END Main.