M2compiler-V1/tests/m_open.LST

Listing:

    1  MODULE MOpen;
    2  MODULE M EXPORT Total;
    3  PROCEDURE Total(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 Total;
   10  END M;
   11  VAR a : ARRAY [1 .. 4] OF INTEGER; ExitCode : INTEGER;
   12  BEGIN
   13    a[1] := 1; a[2] := 2; a[3] := 3; a[4] := 4;
   14    ExitCode := M.Total(a)
   15  END MOpen.

    0 errors