paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 22:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

new bug

Browse Source
This commit is contained in:
peter 2005-05-05 08:53:05 +00:00
parent 1433ef8324
commit 7cb3c3de10
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw3840.pp Normal file
View File

@ -0,0 +1,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.