M2compiler-V2/tests/d_multi.LST

Listing:

    1  MODULE DMulti;
    2  IMPORT DLib;
    3  IMPORT DLib2;
    4  VAR ExitCode : INTEGER;
    5  BEGIN
    6    DLib.counter := 7;
    7    DLib.Add(3);
    8    DLib2.Bump(DLib.counter);
    9    ExitCode := DLib.counter + DLib.Get()
   10  END DMulti.

    0 errors