freepascal.compiler/tests/tbs/tb0235.pp

{ Old file: tbs0275.pp }
{ too many warnings }

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