M2compiler-V1/tests/p_varpar.mod

MODULE PVarPar;
VAR a, b : INTEGER; ExitCode : INTEGER;
PROCEDURE Swap(VAR x, y : INTEGER);
VAR t : INTEGER;
BEGIN
  t := x; x := y; y := t
END Swap;
BEGIN
  a := 12; b := 30;
  Swap(a, b);
  ExitCode := a * 100 + b
END PVarPar.