M2compiler-V1/tests/m_outer.LST

Listing:

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

    0 errors