usr/share/fpcsrc/3.2.0/tests/webtbs/tw9384.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw9384.pp

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