M2compiler-V1/tests/a_varpar.LST

Listing:

    1  MODULE AVarPar;
    2  TYPE Vec = ARRAY [1 .. 5] OF INTEGER;
    3  VAR v : Vec; ExitCode : INTEGER;
    4  PROCEDURE Fill(VAR a : Vec);
    5  VAR i : INTEGER;
    6  BEGIN
    7    FOR i := 1 TO 5 DO a[i] := i * 10 END
    8  END Fill;
    9  PROCEDURE Total(VAR a : Vec) : INTEGER;
   10  VAR i, s : INTEGER;
   11  BEGIN
   12    s := 0;
   13    FOR i := 1 TO 5 DO s := s + a[i] END;
   14    RETURN s
   15  END Total;
   16  BEGIN
   17    Fill(v);
   18    ExitCode := Total(v)
   19  END AVarPar.

    0 errors