M2compiler-V2/tests/r_module.mod

MODULE RMod;
VAR ExitCode : INTEGER;
MODULE M;
EXPORT q, Get;
VAR q : INTEGER;
PROCEDURE Get() : INTEGER;
BEGIN
  RETURN q + 1
END Get;
BEGIN
  q := 41
END M;
BEGIN
  ExitCode := M.q + M.Get()
END RMod.