M2compiler-V2/tests/r_nested.LST

Listing:

    1  MODULE RNested;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE Outer(n : INTEGER) : INTEGER;
    4  VAR loc : INTEGER;
    5    PROCEDURE Nested(t : INTEGER) : INTEGER;
    6    BEGIN
    7      RETURN t + loc + n
    8    END Nested;
    9  BEGIN
   10    loc := 100;
   11    RETURN Nested(1) + Nested(2)
   12  END Outer;
   13  BEGIN
   14    ExitCode := Outer(5)
   15  END RNested.

    0 errors