M2compiler-V2/tests/s5lib.LST

Listing:

    1  IMPLEMENTATION MODULE S5Lib;
    2  PROCEDURE Add(n : INTEGER);
    3  BEGIN
    4    total := total + n
    5  END Add;
    6  PROCEDURE Get() : INTEGER;
    7  BEGIN
    8    RETURN total + unit
    9  END Get;
   10  BEGIN
   11    total := 3
   12  END S5Lib.

    0 errors