M2compiler-V1/tests/p_chain.mod

MODULE PChain;
VAR g : INTEGER; ExitCode : INTEGER;
PROCEDURE Set9(VAR v : INTEGER);
BEGIN
  v := 9
END Set9;
PROCEDURE Mid(VAR w : INTEGER);
BEGIN
  Set9(w)
END Mid;
BEGIN
  g := 0;
  Mid(g);
  ExitCode := g
END PChain.