freepascal.compiler/tests/webtbs/tw33635.pp

program tw33635;
var
  x,y: double;
begin
  x := 1e20;
  writeln('x=',x);
  y := frac(x);
  writeln('frac(x)=',y);
end.