blob: c38bf45e7d6be62a3cd03402d11baf813ff167e9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ 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.
|
