M2compiler-V1/tests/p_proc.LST

Listing:

    1  MODULE PProc;
    2  VAR g : INTEGER; ExitCode : INTEGER;
    3  PROCEDURE Set7;
    4  BEGIN
    5    g := 7
    6  END Set7;
    7  BEGIN
    8    Set7;
    9    ExitCode := g
   10  END PProc.

    0 errors