freepascal.compiler/bugs/bug0275.pp

var
  d : single;
begin
  writeln(longint(d));
end.