M2compiler-V1/tests/b_call.LST

Listing:

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

    0 errors