M2compiler-V2/tests/r_array.mod

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