M2compiler-V1/tests/r_varpar.mod

MODULE RVarPar;
TYPE Point = RECORD x, y : INTEGER END;
VAR p : Point; ExitCode : INTEGER;
PROCEDURE Move(VAR q : Point);
BEGIN
  q.x := q.x + 100;
  q.y := q.y + 200
END Move;
BEGIN
  p.x := 1;
  p.y := 2;
  Move(p);
  ExitCode := p.x + p.y
END RVarPar.