M2compiler-V1/tests/c_copy2.LST

Listing:

    1  MODULE CCopy2;
    2  VAR a, b : ARRAY [1 .. 5] OF CHAR; ExitCode : INTEGER;
    3  BEGIN
    4    a := "hello";
    5    b := a;
    6    IF (b[1] = "h") AND (b[5] = "o") THEN ExitCode := 9 ELSE ExitCode := 0 END
    7  END CCopy2.

    0 errors