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

MODULE Main2;
(* Sample program for M2make tests (gm2 flavor: StrIO). *)
FROM Calc IMPORT Add;
IMPORT StrIO;
VAR r: INTEGER;
BEGIN
  r := Add(20, 22);
  IF r = 42 THEN StrIO.WriteString("ok42")
  ELSE StrIO.WriteString("bad")
  END;
  StrIO.WriteLn
END Main2.