M2compiler-V1/tests/s_cmp2.mod

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