freepascal.compiler/tests/tbs/tb0397.pp

{ %version=1.1}
{$codepage cp850}
begin
   if ord(widechar('Ž'))<>196 then
     halt(1);
   halt(0);
end.