M2compiler-V2/tests/r_string.mod

MODULE RStr;
VAR ExitCode : INTEGER;
    s, t : ARRAY [0 .. 7] OF CHAR;
BEGIN
  ExitCode := 0;
  s := "hi";
  t := s;
  IF s[0] = "h" THEN ExitCode := ExitCode + 1 END;
  IF s[1] = "i" THEN ExitCode := ExitCode + 10 END;
  IF t[0] = "h" THEN ExitCode := ExitCode + 100 END
END RStr.