M2compiler-V1/tests/v_idx.LST

Listing:

    1  MODULE VIdx;
    2  VAR a : ARRAY [1 .. 5] OF INTEGER; ExitCode : INTEGER;
    3  PROCEDURE Bump(VAR x : INTEGER);
    4  BEGIN
    5    x := x + 10
    6  END Bump;
    7  BEGIN
    8    a[1] := 1; a[2] := 2; a[3] := 3; a[4] := 4; a[5] := 5;
    9    Bump(a[2]);
   10    Bump(a[4]);
   11    ExitCode := a[1] + a[2] + a[3] + a[4] + a[5]
   12  END VIdx.

    0 errors