usr/share/fpcsrc/3.2.0/tests/webtbs/tw9695.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw9695.pp

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