1 //===-- Unittests for modfl -----------------------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 9 #include "src/math/modfl.h" 10 #include "utils/FPUtil/BasicOperations.h" 11 #include "utils/FPUtil/FPBits.h" 12 #include "utils/FPUtil/NearestIntegerOperations.h" 13 #include "utils/UnitTest/Test.h" 14 #include <math.h> 15 16 typedef long double LD; 17 using FPBits = __llvm_libc::fputil::FPBits<long double>; 18 19 TEST(LlvmLibcmodflTest, SpecialNumbers) { 20 long double integral; 21 22 EXPECT_TRUE(LD(FPBits::zero()) == 23 __llvm_libc::modfl(LD(FPBits::inf()), &integral)); 24 EXPECT_TRUE(LD(FPBits::inf()) == integral); 25 26 EXPECT_TRUE(LD(FPBits::negZero()) == 27 __llvm_libc::modfl(LD(FPBits::negInf()), &integral)); 28 EXPECT_TRUE(LD(FPBits::negInf()) == integral); 29 30 EXPECT_TRUE(LD(FPBits::zero()) == 31 __llvm_libc::modfl(LD(FPBits::zero()), &integral)); 32 EXPECT_TRUE(integral == 0.0l); 33 34 EXPECT_TRUE(LD(FPBits::negZero()) == 35 __llvm_libc::modfl(LD(FPBits::negZero()), &integral)); 36 EXPECT_TRUE(integral == 0.0l); 37 38 EXPECT_TRUE( 39 FPBits(__llvm_libc::modfl(LD(FPBits::buildNaN(1)), &integral)).isNaN()); 40 } 41 42 TEST(LlvmLibcmodflTest, Integers) { 43 long double integral; 44 45 EXPECT_TRUE(LD(FPBits::zero()) == __llvm_libc::modfl(1.0l, &integral)); 46 EXPECT_TRUE(integral == 1.0l); 47 48 EXPECT_TRUE(LD(FPBits::negZero()) == __llvm_libc::modfl(-1.0l, &integral)); 49 EXPECT_TRUE(integral == -1.0l); 50 51 EXPECT_TRUE(LD(FPBits::zero()) == __llvm_libc::modfl(10.0l, &integral)); 52 EXPECT_TRUE(integral == 10.0l); 53 54 EXPECT_TRUE(LD(FPBits::negZero()) == __llvm_libc::modfl(-10.0l, &integral)); 55 EXPECT_TRUE(integral == -10.0l); 56 57 EXPECT_TRUE(LD(FPBits::zero()) == __llvm_libc::modfl(12345.0l, &integral)); 58 EXPECT_TRUE(integral == 12345.0l); 59 60 EXPECT_TRUE(LD(FPBits::negZero()) == 61 __llvm_libc::modfl(-12345.0l, &integral)); 62 EXPECT_TRUE(integral == -12345.0l); 63 } 64 65 TEST(LlvmLibcModfTest, Fractions) { 66 long double integral; 67 68 EXPECT_TRUE(0.5l == __llvm_libc::modfl(1.5l, &integral)); 69 EXPECT_TRUE(integral == 1.0l); 70 71 EXPECT_TRUE(-0.5l == __llvm_libc::modfl(-1.5l, &integral)); 72 EXPECT_TRUE(integral == -1.0l); 73 74 EXPECT_TRUE(0.75l == __llvm_libc::modfl(10.75l, &integral)); 75 EXPECT_TRUE(integral == 10.0l); 76 77 EXPECT_TRUE(-0.75l == __llvm_libc::modfl(-10.75l, &integral)); 78 EXPECT_TRUE(integral == -10.0l); 79 80 EXPECT_TRUE(0.125l == __llvm_libc::modfl(100.125l, &integral)); 81 EXPECT_TRUE(integral == 100.0l); 82 83 EXPECT_TRUE(-0.125l == __llvm_libc::modfl(-100.125l, &integral)); 84 EXPECT_TRUE(integral == -100.0l); 85 } 86 87 TEST(LlvmLibcModflTest, LongDoubleRange) { 88 using UIntType = FPBits::UIntType; 89 constexpr UIntType count = 10000000; 90 constexpr UIntType step = UIntType(-1) / count; 91 for (UIntType i = 0, v = 0; i <= count; ++i, v += step) { 92 long double x = LD(FPBits(v)); 93 if (isnan(x) || isinf(x) || x == 0.0l) 94 continue; 95 96 long double integral; 97 long double frac = __llvm_libc::modfl(x, &integral); 98 ASSERT_TRUE(__llvm_libc::fputil::abs(frac) < 1.0l); 99 ASSERT_TRUE(__llvm_libc::fputil::trunc(x) == integral); 100 ASSERT_TRUE(integral + frac == x); 101 } 102 } 103