M2compiler-V1/tests/m_multi.LST

Listing:

    1  MODULE MMulti;
    2  MODULE M EXPORT cnt;
    3  VAR cnt : INTEGER;
    4  END M;
    5  MODULE N EXPORT k;
    6  VAR k : INTEGER;
    7  END N;
    8  VAR ExitCode : INTEGER;
    9  BEGIN
   10    M.cnt := 3;
   11    N.k := 4;
   12    ExitCode := M.cnt + N.k
   13  END MMulti.

    0 errors