M2compiler-V1/tests/b_call.mod

MODULE BCall;
MODULE M EXPORT cnt, Inc;
VAR cnt : INTEGER;
PROCEDURE Inc;
BEGIN
  cnt := cnt + 5
END Inc;
BEGIN
  Inc();
  M.Inc()
END M;
VAR ExitCode : INTEGER;
BEGIN
  M.Inc();
  ExitCode := M.cnt
END BCall.