M2compiler-V1/tests/t_char.mod

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