M2compiler-V1/tests/c_row.LST

Listing:

    1  MODULE CRow;
    2  VAR m, n : ARRAY [1 .. 2], [1 .. 3] OF INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    m[1,1] := 1; m[1,2] := 2; m[1,3] := 3;
    5    m[2,1] := 4; m[2,2] := 5; m[2,3] := 6;
    6    n[1] := m[2];
    7    ExitCode := n[1,1] + n[1,2] + n[1,3]
    8  END CRow.

    0 errors