M2compiler-V1/tests/t_lib.LST

Listing:

    1  DEFINITION MODULE TLib;
    2  TYPE Point = RECORD x, y : INTEGER END;
    3  PROCEDURE Move(VAR p : Point; dx, dy : INTEGER);
    4  END TLib.

    0 errors