Listing:

    1  MODULE MBare;
    2  MODULE M EXPORT cnt, Inc;
    3  VAR cnt : INTEGER;
    4  PROCEDURE Inc;
    5  BEGIN
    6    cnt := cnt + 1
    7  END Inc;
    8  END M;
    9  VAR ExitCode : INTEGER;
   10  BEGIN
   11    M.cnt := 0;
   12    M.Inc;
   13    M.Inc();
   14    ExitCode := M.cnt
   15  END MBare.

    0 errors