M2compiler-V1/tests/m_param.LST

Listing:

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

    0 errors