M2compiler-V1/tests/t_str.LST

Listing:

    1  MODULE TStr;
    2  VAR s : ARRAY [1 .. 10] OF CHAR; ExitCode : INTEGER;
    3  BEGIN
    4    s := "abc";
    5    IF (s[1] = "a") AND (s[2] = "b") AND (s[3] = "c") THEN ExitCode := 11 ELSE ExitCode := 0 END
    6  END TStr.

    0 errors