1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
//===-- Unittests for sqrtl ----------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===---------------------------------------------------------------------===//
#include "include/math.h"
#include "src/math/sqrtl.h"
#include "utils/FPUtil/FPBits.h"
#include "utils/FPUtil/TestHelpers.h"
#include "utils/MPFRWrapper/MPFRUtils.h"
using FPBits = __llvm_libc::fputil::FPBits<long double>;
using UIntType = typename FPBits::UIntType;
namespace mpfr = __llvm_libc::testing::mpfr;
constexpr UIntType HiddenBit =
UIntType(1) << __llvm_libc::fputil::MantissaWidth<long double>::value;
long double nan = FPBits::buildNaN(1);
long double inf = FPBits::inf();
long double negInf = FPBits::negInf();
TEST(SqrtlTest, SpecialValues) {
ASSERT_FP_EQ(nan, __llvm_libc::sqrtl(nan));
ASSERT_FP_EQ(inf, __llvm_libc::sqrtl(inf));
ASSERT_FP_EQ(nan, __llvm_libc::sqrtl(negInf));
ASSERT_FP_EQ(0.0L, __llvm_libc::sqrtl(0.0L));
ASSERT_FP_EQ(-0.0L, __llvm_libc::sqrtl(-0.0L));
ASSERT_FP_EQ(nan, __llvm_libc::sqrtl(-1.0L));
ASSERT_FP_EQ(1.0L, __llvm_libc::sqrtl(1.0L));
ASSERT_FP_EQ(2.0L, __llvm_libc::sqrtl(4.0L));
ASSERT_FP_EQ(3.0L, __llvm_libc::sqrtl(9.0L));
}
TEST(SqrtlTest, DenormalValues) {
for (UIntType mant = 1; mant < HiddenBit; mant <<= 1) {
FPBits denormal(0.0L);
denormal.mantissa = mant;
ASSERT_MPFR_MATCH(mpfr::Operation::Sqrt, static_cast<long double>(denormal),
__llvm_libc::sqrtl(denormal), 0.5);
}
constexpr UIntType count = 1'000'001;
constexpr UIntType step = HiddenBit / count;
for (UIntType i = 0, v = 0; i <= count; ++i, v += step) {
long double x = *reinterpret_cast<long double *>(&v);
ASSERT_MPFR_MATCH(mpfr::Operation::Sqrt, x, __llvm_libc::sqrtl(x), 0.5);
}
}
TEST(SqrtlTest, InLongDoubleRange) {
constexpr UIntType count = 10'000'001;
constexpr UIntType step = UIntType(-1) / count;
for (UIntType i = 0, v = 0; i <= count; ++i, v += step) {
long double x = *reinterpret_cast<long double *>(&v);
if (isnan(x) || (x < 0)) {
continue;
}
ASSERT_MPFR_MATCH(mpfr::Operation::Sqrt, x, __llvm_libc::sqrtl(x), 0.5);
}
}
|
