M2compiler-V3/compiler/tests/t_bad_surrogate.mod

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