M2compiler-V1/tests/a_subopen.LST

Listing:

    1  MODULE ASubOpen;
    2  VAR m : ARRAY [1 .. 2], [1 .. 3] OF INTEGER; ExitCode : INTEGER;
    3  PROCEDURE Sum(x : ARRAY OF INTEGER) : INTEGER;
    4  VAR i, s : INTEGER;
    5  BEGIN
    6    s := 0;
    7    FOR i := 0 TO HIGH(x) DO s := s + x[i] END;
    8    RETURN s
    9  END Sum;
   10  BEGIN
   11    m[1,1] := 1; m[1,2] := 2; m[1,3] := 3;
   12    m[2,1] := 10; m[2,2] := 20; m[2,3] := 30;
   13    ExitCode := Sum(m[1]) + Sum(m[2])
   14  END ASubOpen.

    0 errors