M2compiler-V1/tests/m_varpar.mod

MODULE MVarPar;
MODULE M EXPORT Bump;
PROCEDURE Bump(VAR x : INTEGER);
BEGIN
  x := x + 10
END Bump;
END M;
VAR v, ExitCode : INTEGER;
BEGIN
  v := 5;
  M.Bump(v);
  ExitCode := v
END MVarPar.