blob: cc5d027304d6d3545b603c5b4eee65b284499b04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{ Source provided for Free Pascal Bug Report 4294 }
{ Submitted by "Martin Schreiber" on 2005-08-19 }
{ e-mail: }
unit tw4294;
interface
{$ifdef fpc}{$mode objfpc}{$endif}
{$H+}
const
widestrconst = widestring('abc');
ansistrconst = 'abc';
procedure wtest(const par1: widestring = widestrconst);
procedure atest(const par1: string = ansistrconst);
implementation
procedure atest(const par1: string = ansistrconst); //ok
begin
end;
procedure wtest(const par1: widestring = widestrconst); //error
//procedure wtest(const par1: widestring); //ok
begin
end;
end.
|
