1 //===-- floatundixf_test.c - Test __floatundixf ---------------------------===// 2 // 3 // The LLVM Compiler Infrastructure 4 // 5 // This file is distributed under the University of Illinois Open Source 6 // License. See LICENSE.TXT for details. 7 // 8 //===----------------------------------------------------------------------===// 9 // 10 // This file tests __floatundixf for the compiler_rt library. 11 // 12 //===----------------------------------------------------------------------===// 13 14 #include "int_lib.h" 15 #include <stdio.h> 16 17 18 #if HAS_80_BIT_LONG_DOUBLE 19 // Returns: convert a to a long double, rounding toward even. 20 21 // Assumption: long double is a IEEE 80 bit floating point type padded to 128 bits 22 // du_int is a 64 bit integral type 23 24 // gggg gggg gggg gggg gggg gggg gggg gggg | gggg gggg gggg gggg seee eeee eeee eeee | 25 // 1mmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm | mmmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm 26 27 long double __floatundixf(du_int a); 28 29 int test__floatundixf(du_int a, long double expected) 30 { 31 long double x = __floatundixf(a); 32 if (x != expected) 33 printf("error in __floatundixf(%llX) = %LA, expected %LA\n", 34 a, x, expected); 35 return x != expected; 36 } 37 38 char assumption_1[sizeof(du_int) == 2*sizeof(si_int)] = {0}; 39 char assumption_2[sizeof(du_int)*CHAR_BIT == 64] = {0}; 40 char assumption_3[sizeof(long double)*CHAR_BIT == 128] = {0}; 41 #endif 42 43 int main() 44 { 45 #if HAS_80_BIT_LONG_DOUBLE 46 if (test__floatundixf(0, 0.0)) 47 return 1; 48 49 if (test__floatundixf(1, 1.0)) 50 return 1; 51 if (test__floatundixf(2, 2.0)) 52 return 1; 53 if (test__floatundixf(20, 20.0)) 54 return 1; 55 56 if (test__floatundixf(0x7FFFFF8000000000ULL, 0x1.FFFFFEp+62)) 57 return 1; 58 if (test__floatundixf(0x7FFFFFFFFFFFF800ULL, 0x1.FFFFFFFFFFFFEp+62)) 59 return 1; 60 if (test__floatundixf(0x7FFFFF0000000000ULL, 0x1.FFFFFCp+62)) 61 return 1; 62 if (test__floatundixf(0x7FFFFFFFFFFFF000ULL, 0x1.FFFFFFFFFFFFCp+62)) 63 return 1; 64 if (test__floatundixf(0x7FFFFFFFFFFFFFFFULL, 0xF.FFFFFFFFFFFFFFEp+59L)) 65 return 1; 66 if (test__floatundixf(0xFFFFFFFFFFFFFFFEULL, 0xF.FFFFFFFFFFFFFFEp+60L)) 67 return 1; 68 if (test__floatundixf(0xFFFFFFFFFFFFFFFFULL, 0xF.FFFFFFFFFFFFFFFp+60L)) 69 return 1; 70 71 if (test__floatundixf(0x8000008000000000ULL, 0x8.000008p+60)) 72 return 1; 73 if (test__floatundixf(0x8000000000000800ULL, 0x8.0000000000008p+60)) 74 return 1; 75 if (test__floatundixf(0x8000010000000000ULL, 0x8.00001p+60)) 76 return 1; 77 if (test__floatundixf(0x8000000000001000ULL, 0x8.000000000001p+60)) 78 return 1; 79 80 if (test__floatundixf(0x8000000000000000ULL, 0x8p+60)) 81 return 1; 82 if (test__floatundixf(0x8000000000000001ULL, 0x8.000000000000001p+60L)) 83 return 1; 84 85 if (test__floatundixf(0x0007FB72E8000000ULL, 0x1.FEDCBAp+50)) 86 return 1; 87 88 if (test__floatundixf(0x0007FB72EA000000ULL, 0x1.FEDCBA8p+50)) 89 return 1; 90 if (test__floatundixf(0x0007FB72EB000000ULL, 0x1.FEDCBACp+50)) 91 return 1; 92 if (test__floatundixf(0x0007FB72EBFFFFFFULL, 0x1.FEDCBAFFFFFFCp+50)) 93 return 1; 94 if (test__floatundixf(0x0007FB72EC000000ULL, 0x1.FEDCBBp+50)) 95 return 1; 96 if (test__floatundixf(0x0007FB72E8000001ULL, 0x1.FEDCBA0000004p+50)) 97 return 1; 98 99 if (test__floatundixf(0x0007FB72E6000000ULL, 0x1.FEDCB98p+50)) 100 return 1; 101 if (test__floatundixf(0x0007FB72E7000000ULL, 0x1.FEDCB9Cp+50)) 102 return 1; 103 if (test__floatundixf(0x0007FB72E7FFFFFFULL, 0x1.FEDCB9FFFFFFCp+50)) 104 return 1; 105 if (test__floatundixf(0x0007FB72E4000001ULL, 0x1.FEDCB90000004p+50)) 106 return 1; 107 if (test__floatundixf(0x0007FB72E4000000ULL, 0x1.FEDCB9p+50)) 108 return 1; 109 110 if (test__floatundixf(0x023479FD0E092DC0ULL, 0x1.1A3CFE870496Ep+57)) 111 return 1; 112 if (test__floatundixf(0x023479FD0E092DA1ULL, 0x8.D1E7F43824B684p+54L)) 113 return 1; 114 if (test__floatundixf(0x023479FD0E092DB0ULL, 0x8.D1E7f43824B6Cp+54L)) 115 return 1; 116 if (test__floatundixf(0x023479FD0E092DB8ULL, 0x8.D1E7F43824B6Ep+54L)) 117 return 1; 118 if (test__floatundixf(0x023479FD0E092DB6ULL, 0x8.D1E7F43824B6D8p+54L)) 119 return 1; 120 if (test__floatundixf(0x023479FD0E092DBFULL, 0x8.D1E7F43824B6FCp+54L)) 121 return 1; 122 if (test__floatundixf(0x023479FD0E092DC1ULL, 0x8.D1E7F43824B704p+54L)) 123 return 1; 124 if (test__floatundixf(0x023479FD0E092DC7ULL, 0x8.D1E7F43824B71Cp+54L)) 125 return 1; 126 if (test__floatundixf(0x023479FD0E092DC8ULL, 0x8.D1E7F43824B72p+54L)) 127 return 1; 128 if (test__floatundixf(0x023479FD0E092DCFULL, 0x8.D1E7F43824B73Cp+54L)) 129 return 1; 130 if (test__floatundixf(0x023479FD0E092DD0ULL, 0x8.D1E7F43824B74p+54L)) 131 return 1; 132 if (test__floatundixf(0x023479FD0E092DD1ULL, 0x8.D1E7F43824B744p+54L)) 133 return 1; 134 if (test__floatundixf(0x023479FD0E092DD8ULL, 0x8.D1E7F43824B76p+54L)) 135 return 1; 136 if (test__floatundixf(0x023479FD0E092DDFULL, 0x8.D1E7F43824B77Cp+54L)) 137 return 1; 138 if (test__floatundixf(0x023479FD0E092DE0ULL, 0x1.1A3CFE870496Fp+57)) 139 return 1; 140 141 #endif 142 return 0; 143 } 144
