paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 15:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #7105

Browse Source 
git-svn-id: trunk@5068 -
This commit is contained in:
Jonas Maebe 2006-10-29 19:22:04 +00:00
parent f273350fc6
commit 117774e006
3 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7547,6 +7547,7 @@ tests/webtbs/tw7006.pp svneol=native#text/plain
tests/webtbs/tw7071.pp svneol=native#text/plain
tests/webtbs/tw7100.pp svneol=native#text/plain
tests/webtbs/tw7104.pp svneol=native#text/plain
tests/webtbs/tw7105.pp svneol=native#text/plain
tests/webtbs/tw7143.pp -text
tests/webtbs/tw7161.pp svneol=native#text/plain
tests/webtbs/tw7195.pp svneol=native#text/plain

1
rtl/inc/real2str.inc
View File

@ -384,6 +384,7 @@ begin
begin
roundStr(temp,spos);
d := frac(d);
dec(currprec);
end;
{ calculate the necessary fractional digits }
for fracCount := 1 to currPrec do

19
tests/webtbs/tw7105.pp Normal file
View File

@ -0,0 +1,19 @@
var i:integer;
H:single;
s:string;
begin
H:= 10;
for i:=1 to 25 do
begin
str(H:8,s);
if (s[1] <> ' ') or
(length(s) <> 8) then
begin
writeln(s);
halt(1);
end;
H:= H / 10.0;
end;
end.