M2compiler-V1/tests/t_arr.LST

Listing:

    1  MODULE TArr;
    2  VAR a : ARRAY [1 .. 3] OF INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    a[1] := 7;
    5    a[2] := a[1] + 5;
    6    a[3] := 20;
    7    ExitCode := a[1] + a[2] + a[3]
    8  END TArr.

    0 errors