M2compiler-V1/tests/o_open2.mod

MODULE OOpen2;
VAR a : ARRAY [1 .. 3] OF INTEGER; b : ARRAY [1 .. 7] OF INTEGER; ExitCode : INTEGER;
PROCEDURE Sum(VAR x : ARRAY OF INTEGER) : INTEGER;
VAR i, s : INTEGER;
BEGIN
  s := 0;
  FOR i := 0 TO HIGH(x) DO s := s + x[i] END;
  RETURN s
END Sum;
BEGIN
  a[1] := 1; a[2] := 2; a[3] := 3;
  b[1] := 10; b[2] := 20; b[3] := 30; b[4] := 40; b[5] := 50; b[6] := 60; b[7] := 70;
  ExitCode := Sum(a) + Sum(b)
END OOpen2.