M2compiler-V1/tests/s_streq.LST

Listing:

    1  MODULE SStrEq;
    2  VAR s1, s2 : ARRAY [1 .. 10] OF CHAR; ExitCode : INTEGER;
    3  BEGIN
    4    s1 := "abc";
    5    s2 := "abc";
    6    IF s1 = s2 THEN ExitCode := 4 ELSE ExitCode := 0 END;
    7    s2 := "abd";
    8    IF s1 # s2 THEN ExitCode := ExitCode + 6 ELSE ExitCode := 0 END;
    9    IF s1 < s2 THEN ExitCode := ExitCode + 11 ELSE ExitCode := 0 END
   10  END SStrEq.

    0 errors