freepascal.compiler/tests/webtbf/tw9918d.pp

{ %fail }

{$x+}

var
  d: double;
begin
  trunc(d);
end.