M2compiler-V3/compiler/tests/t_bad_overlong.mod

MODULE TBadOverlong;
VAR ExitCode : INTEGER;
VAR u : UCHAR;
BEGIN
  u := U'��';
  ExitCode := 0
END TBadOverlong.