blob: a040b422180df874eb544503ae74a752faaf742b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ Source provided for Free Pascal Bug Report 2885 }
{ Submitted by "Michalis Kamburelis" on 2004-01-07 }
{ e-mail: michalis@camelot.homedns.org }
procedure p(const b:Single); overload;
begin
Writeln('single');
end;
procedure p(const b:Double); overload;
begin
Writeln('double');
halt(1);
end;
begin
p(single(1.0));
end.
|
