M2compiler-V1/tests/m_func.LST

Listing:

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

    0 errors