M2compiler-V1/tests/c_copy.LST

Listing:

    1  MODULE CCopy;
    2  VAR a, b : ARRAY [1 .. 3] OF INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    a[1] := 5; a[2] := 6; a[3] := 7;
    5    b := a;
    6    ExitCode := b[1] + b[2] + b[3]
    7  END CCopy.

    0 errors