fpc/tests/webtbs/tw9384.pp
Jonas Maebe 49a545aef2 * fixed FormatFloat for non-x86 (mantis 9384)
git-svn-id: trunk@8220 -
2007-08-04 17:38:48 +00:00

12 lines
173 B
ObjectPascal

program test_formatloat;
{$mode objfpc}{$H+}
uses
SysUtils;
var
ef : Extended;
begin
ef := 12;
if (FormatFloat('#.#######E-0',ef) <> '1.2E1') then
halt(1);
end.