M2compiler-V1/tests/p_proc.mod

MODULE PProc;
VAR g : INTEGER; ExitCode : INTEGER;
PROCEDURE Set7;
BEGIN
  g := 7
END Set7;
BEGIN
  Set7;
  ExitCode := g
END PProc.