M2compiler-V1/tests/c_row.mod

MODULE CRow;
VAR m, n : ARRAY [1 .. 2], [1 .. 3] OF INTEGER; ExitCode : INTEGER;
BEGIN
  m[1,1] := 1; m[1,2] := 2; m[1,3] := 3;
  m[2,1] := 4; m[2,2] := 5; m[2,3] := 6;
  n[1] := m[2];
  ExitCode := n[1,1] + n[1,2] + n[1,3]
END CRow.