M2compiler-V2/tests/r_module.LST

Listing:

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

    0 errors