tb0397.pp\tbs\tests - delta/fpc.git - svn.freepascal.org: svn/fpc

index : delta/fpc.git

svn.freepascal.org: svn/fpc

summary refs log tree commit diff

path: root/tests/tbs/tb0397.pp

blob: 921b3c8fa47f98b399d1581f45f576abedbd8b91 (plain)

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