M2compiler-V1/tests/m_func.mod

MODULE MFunc;
MODULE M EXPORT Get, cnt;
VAR cnt : INTEGER;
PROCEDURE Get : INTEGER;
BEGIN
  cnt := cnt + 1;
  RETURN 42
END Get;
END M;
VAR ExitCode : INTEGER;
BEGIN
  M.Get();
  M.Get;
  ExitCode := M.Get() + M.cnt
END MFunc.