fpcsrc/tests/webtbs/tw9695.pp


1
2
3
4
5
6
7
8
9

var
  s: string;
  d: Double;
begin
  d := 5.9999999999999991;
  Str(d:23,s); 
  if (pos('9',s)<>0) or (pos('5',s)<>0) then
    halt(1);
end.