mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
20 lines
464 B
ObjectPascal
20 lines
464 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3840 }
|
|
{ Submitted by "Alexey Barkovoy" on 2005-03-27 }
|
|
{ e-mail: clootie@ixbt.com }
|
|
|
|
{$mode objfpc}
|
|
|
|
const
|
|
sConst = 'X';
|
|
|
|
procedure Do1(const w: PWideChar);
|
|
begin
|
|
writeln(Widestring(w));
|
|
end;
|
|
|
|
begin
|
|
Do1(sConst); //Error: Incompatible type for arg no. 1: Got "Char", expected "PWideChar"
|
|
Do1('W'); //Error: Incompatible type for arg no. 1: Got "Char", expected "PWideChar"
|
|
Do1('WW'); // SUCCEEDED
|
|
end.
|