M2compiler-V1/tests/m_mod.mod

MODULE MMod;
MODULE M EXPORT cnt, Inc;
VAR cnt : INTEGER;
PROCEDURE Inc;
BEGIN
  cnt := cnt + 1
END Inc;
END M;
VAR ExitCode : INTEGER;
BEGIN
  M.cnt := 10;
  M.Inc();
  M.Inc();
  ExitCode := M.cnt
END MMod.