Listing:

    1  IMPLEMENTATION MODULE S4L;
    2  PROCEDURE Add(x, y : INTEGER) : INTEGER;
    3  BEGIN
    4    RETURN x + y
    5  END Add;
    6  PROCEDURE Bump(VAR x : INTEGER);
    7  BEGIN
    8    x := x + 10
    9  END Bump;
   10  BEGIN
   11    n := 7
   12  END S4L.

    0 errors