M2compiler-V2/tests/r_string.LST

Listing:

    1  MODULE RStr;
    2  VAR ExitCode : INTEGER;
    3      s, t : ARRAY [0 .. 7] OF CHAR;
    4  BEGIN
    5    ExitCode := 0;
    6    s := "hi";
    7    t := s;
    8    IF s[0] = "h" THEN ExitCode := ExitCode + 1 END;
    9    IF s[1] = "i" THEN ExitCode := ExitCode + 10 END;
   10    IF t[0] = "h" THEN ExitCode := ExitCode + 100 END
   11  END RStr.

    0 errors