M2compiler-V1/tests/b_order.LST

Listing:

    1  MODULE BOrder;
    2  MODULE A EXPORT x;
    3  VAR x : INTEGER;
    4  BEGIN
    5    x := 1
    6  END A;
    7  MODULE B EXPORT y;
    8  VAR y : INTEGER;
    9  BEGIN
   10    y := A.x + 10
   11  END B;
   12  VAR ExitCode : INTEGER;
   13  BEGIN
   14    ExitCode := A.x * 100 + B.y
   15  END BOrder.

    0 errors