program test_1;
uses integer_maths;

{$ASSERTIONS ON}

procedure TestINTLOG2;
begin
                               // FEDCBA9876543210
  assert(INTLOG2($8000) = $F); // 1000000000000000
  assert(INTLOG2($8001) = $F); // 1000000000000001
  //assert(INTLOG2(0) = -inf); // 0000000000000000
end;

begin
  TestINTLOG2;
end.