M2compiler-V1/tests/m_varpar.LST

Listing:

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

    0 errors