M2compiler-V1/tests/m_outer.mod

MODULE MOuter;
VAR g : INTEGER;
MODULE M EXPORT Inc;
PROCEDURE Inc;
BEGIN
  g := g + 1
END Inc;
END M;
VAR ExitCode : INTEGER;
BEGIN
  g := 10;
  M.Inc();
  ExitCode := g
END MOuter.