M2compiler-V2/tests/d_type.mod

MODULE DType;
FROM DLib IMPORT Vec;
IMPORT DLib;
VAR ExitCode : INTEGER;
    a : Vec;
    p : DLib.Point;
BEGIN
  a[0] := 1; a[1] := 2; a[2] := 3; a[3] := 4;
  p.x := 10; p.y := 20;
  ExitCode := a[0] + a[1] + a[2] + a[3] + p.x + p.y
END DType.