M2compiler-V1/tests/p_local.mod

MODULE PLocal;
VAR x : INTEGER; ExitCode : INTEGER;
PROCEDURE Get : INTEGER;
VAR x : INTEGER;
BEGIN
  x := 40;
  RETURN x + 2
END Get;
BEGIN
  x := 1;
  ExitCode := Get() + x
END PLocal.