summaryrefslogtreecommitdiff
path: root/tests/webtbs/tw4272.pp
blob: df7842592e54ec928e4113ad844626a4d367dffc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure go(const w: widestring);overload;
begin
writeln('wide: ',w);
end;

procedure go(const w: shortstring);overload;
begin
writeln('short: ',w);
end;

var
  s: ansistring;
begin
  s:='test';
  go(s); //-->compiler can not determine whitch overloaded function to call
end.