M2compiler-V1/tests/b_init.LST

Listing:

    1  MODULE BInit;
    2  MODULE M EXPORT cnt;
    3  VAR cnt : INTEGER;
    4  BEGIN
    5    cnt := 42
    6  END M;
    7  VAR ExitCode : INTEGER;
    8  BEGIN
    9    ExitCode := M.cnt
   10  END BInit.

    0 errors