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

* fix formatting of the writing of the fraction

Browse Source 
git-svn-id: trunk@35235 -
This commit is contained in:
florian 2017-01-04 22:57:43 +00:00
parent 466d26b5ef
commit 3706ab4e44
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/bench/timer.pas
View File

@ -68,7 +68,7 @@ unit timer;
{$ifdef USEEPIK} {$ifdef USEEPIK}
write(stderr,e:0:6,' Seconds'); write(stderr,e:0:6,' Seconds');
{$else USEEPIK} {$else USEEPIK}
write(stderr,s div 1000,'.',format('%03d',[s mod 1000]),' Seconds'); write(stderr,s div 1000,'.',format('%.3d',[s mod 1000]),' Seconds');
{$endif USEEPIK} {$endif USEEPIK}
end; end;