paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 03:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2004-01-22 21:43:03 +00:00
parent dc78092853
commit 7ca7f97ba1
1 changed files with 17 additions and 0 deletions

17
tests/webtbs/tw2885.pp Normal file
View File

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