M2compiler-V1/tests/s_cmp2.LST

Listing:

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

    0 errors