mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
12 lines
216 B
ObjectPascal
12 lines
216 B
ObjectPascal
{ %fail }
|
|
{$codepage utf8}
|
|
|
|
var
|
|
a: char;
|
|
begin
|
|
a:='a';
|
|
{ can't convert widechar to char, because don't know what }
|
|
{ encoding to use at compile-time }
|
|
if a in ['a', 'é'] then;
|
|
end.
|