fpc/tests/test/alglib/t_testfhtunit.pp

{ %opt=-Mdelphi -Sa }
{ don't run this test when no hardware fpu is available, it would take a lot of time }
{$ifndef FPUSOFT}
program t_testfhtunit;
uses Sysutils, u_testfhtunit;

begin
    Randomize();
    try 
        if not testfhtunit_test_silent() then
        begin
            //WriteLn('*');
            Halt(1);
        end;
    except on E: Exception do 
        begin
            Halt(2);
        end;
    end;
    Halt(0);
end.
{$else FPUSOFT}
begin
end.
{$endif FPUSOFT}