Listing:

    1  MODULE PLocal;
    2  VAR x : INTEGER; ExitCode : INTEGER;
    3  PROCEDURE Get : INTEGER;
    4  VAR x : INTEGER;
    5  BEGIN
    6    x := 40;
    7    RETURN x + 2
    8  END Get;
    9  BEGIN
   10    x := 1;
   11    ExitCode := Get() + x
   12  END PLocal.

    0 errors