M2compiler-V2/tests/d_type.LST

Listing:

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

    0 errors