blob: 2b395f7da82b885bea7054a1380adba73c44a559 (
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
28
29
30
31
32
|
{ 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;
s1: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.169E+006' then
begin
writeln(s);
halt(1);
end;
str(d,s);
if sizeof(extended) > 8 then
s1 := ' 5.16856850000000E+006'
else
s1 := ' 5.16856850000000E+006';
if s<>s1 then
begin
writeln(s);
halt(1);
end;
end.
|
