M2compiler-V1/tests/t_str.mod

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