fpcsrc/tests/webtbs/tw8434.pp


1
2
3
4
5
6
7
8
9
10
11
12

uses sysutils;

var
  x: double;
begin
  DecimalSeparator:='.';
  x := 0.099991;
  if (Format('%5.2f', [x]) <> ' 0.10') then
    halt(1);
  if (Format('%6.3f', [x]) <> ' 0.100') then
    halt(2);
end.