M2compiler-V3/compiler/tests/t_trap_chr8.mod

MODULE TTrapChr8;
(* CHR8(U'😀') = 128512 > 255 -> range trap. *)
VAR ExitCode : INTEGER;
VAR c : CHAR;
BEGIN
  c := CHR8(U'😀');
  ExitCode := 0
END TTrapChr8.