M2compiler-V1/tests/d_type.mod

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