fpc/tests/webtbs/tw11711.pp
2008-10-26 13:49:03 +00:00

10 lines
136 B
ObjectPascal

uses sysutils;
var
cs:String;
begin
cs:=FormatFloat('000.000',-1);
if (cs<>'-001'+DecimalSeparator+'000') then
halt(1);
end.