M2compiler-V2/tests/r_varpar.LST

Listing:

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

    0 errors