CocoR/Test2/tests/q_char.mod

MODULE QChar;
VAR c, d : CHAR; ExitCode : INTEGER;
BEGIN
  c := 'a';
  d := 'b';
  IF c < d THEN ExitCode := 97 ELSE ExitCode := 98 END
END QChar.