paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2003-10-16 12:41:49 +00:00
parent a7da89dc37
commit 28a441fd34
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/webtbs/tw2643.pp Normal file
View File

@ -0,0 +1,27 @@
{ Source provided for Free Pascal Bug Report 2643 }
{ Submitted by "Wayne Sullivan" on 2003-08-19 }
{ e-mail: Wayne.Sullivan@cnri.dit.ie }
program pbug;
var d:double;
s:string;
begin
d:=5168568.5;
str(d:10,s);
if s<>' 5.17E+006' then
begin
writeln(s);
halt(1);
end;
str(d:11,s);
if s<>' 5.170E+006' then
begin
writeln(s);
halt(1);
end;
str(d,s);
if s<>' 5.168568500000000E+006' then
begin
writeln(s);
halt(1);
end;
end.