M2compiler-V1/tests/m_param.mod

MODULE MParam;
MODULE M EXPORT cnt, Add;
VAR cnt : INTEGER;
PROCEDURE Add(x : INTEGER);
BEGIN
  cnt := cnt + x
END Add;
END M;
VAR ExitCode : INTEGER;
BEGIN
  M.cnt := 10;
  M.Add(5);
  ExitCode := M.cnt
END MParam.