M2compiler-V1/tests/p_chain.LST

Listing:

    1  MODULE PChain;
    2  VAR g : INTEGER; ExitCode : INTEGER;
    3  PROCEDURE Set9(VAR v : INTEGER);
    4  BEGIN
    5    v := 9
    6  END Set9;
    7  PROCEDURE Mid(VAR w : INTEGER);
    8  BEGIN
    9    Set9(w)
   10  END Mid;
   11  BEGIN
   12    g := 0;
   13    Mid(g);
   14    ExitCode := g
   15  END PChain.

    0 errors