M2compiler-V1/tests/o_open.LST

Listing:

    1  MODULE OOpen;
    2  VAR a : ARRAY [1 .. 5] OF INTEGER; ExitCode : INTEGER;
    3  PROCEDURE Sum(VAR 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    a[1] := 10; a[2] := 20; a[3] := 30; a[4] := 40; a[5] := 50;
   12    ExitCode := Sum(a)
   13  END OOpen.

    0 errors