M2compiler-V1/tests/t_arr.mod

MODULE TArr;
VAR a : ARRAY [1 .. 3] OF INTEGER; ExitCode : INTEGER;
BEGIN
  a[1] := 7;
  a[2] := a[1] + 5;
  a[3] := 20;
  ExitCode := a[1] + a[2] + a[3]
END TArr.