fpc/tests/tbs/tb0450.pp

var
 i: single;
Begin
  case round(i) of
  0: WriteLn;
  1: WriteLn;
  end;
end.

{
  $Log$
  Revision 1.1  2003-02-02 14:37:45  carl
   + round returning int64 problem

}