mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
18 lines
380 B
ObjectPascal
18 lines
380 B
ObjectPascal
{ %OPT=-Fcutf8}
|
|
{ Source provided for Free Pascal Bug Report 4155 }
|
|
{ Submitted by "rimga" on 2005-07-04 }
|
|
{ e-mail: rimga@ktl.mii.lt }
|
|
{this file encoded in UTF8}
|
|
{cmd fpc twchar.pas -FcUTF8}
|
|
var
|
|
c: widestring;
|
|
c2: widestring;
|
|
begin
|
|
c:= 'ą'; //problem handling char constants
|
|
c2:= 'ąa';
|
|
if c[1]<>c2[1] then
|
|
WriteLn('problem')
|
|
else
|
|
Writeln('OK');
|
|
end.
|