M2compiler-V2/tests/r_array.LST

Listing:

    1  MODULE RArr;
    2  VAR ExitCode : INTEGER;
    3      v, w : ARRAY [0 .. 9] OF INTEGER;
    4      m : ARRAY [0 .. 2], [0 .. 3] OF INTEGER;
    5      i, j : INTEGER;
    6  BEGIN
    7    FOR i := 0 TO 9 DO v[i] := i * 2 END;
    8    w := v;
    9    FOR i := 0 TO 2 DO
   10      FOR j := 0 TO 3 DO m[i, j] := i * 10 + j END
   11    END;
   12    ExitCode := v[5] + w[3] + m[2, 3]
   13  END RArr.

    0 errors