M2compiler-V1/tests/d_type.LST

Listing:

    1  MODULE DType;
    2  FROM TLib IMPORT Point, Move;
    3  VAR p : Point;
    4  VAR ExitCode : INTEGER;
    5  BEGIN
    6    p.x := 1; p.y := 2;
    7    Move(p, 10, 20);
    8    ExitCode := p.x * 100 + p.y
    9  END DType.

    0 errors