M2compiler-V3/compiler/tests/t_array.mod

MODULE TArray;
// 1-D + nested arrays, whole assign (incl. nested copy), strings,
// char compare. Exit 108.
TYPE Vec = ARRAY [0..4] OF INTEGER;
TYPE Mat = ARRAY [0..1, 0..2] OF INTEGER;
VAR ExitCode : INTEGER;
VAR v, w : Vec;
VAR m, m2 : Mat;
VAR s : ARRAY [0..2] OF CHAR;
VAR i, sum : INTEGER;
BEGIN
  sum := 0;
  FOR i := 0 TO 4 DO v[i] := i * 10; sum := sum + v[i] END;
  w := v;
  m[0, 0] := 1; m[0, 1] := 2; m[0, 2] := 3;
  m[1, 0] := 4; m[1, 1] := 5; m[1, 2] := 6;
  sum := sum + m[1, 2];
  m2 := m;
  sum := sum + m2[0, 0];
  s := "abc";
  IF s[0] = 'a' THEN sum := sum + 1 END;
  ExitCode := sum
END TArray.