int main() { TEST_SET_START("20040930102626EJL","EJL", "negated2"); double x0n = hide_double(-0.0); double x0p = hide_double(0.0); double x1n = hide_double(-83532.96153153); double x1p = hide_double(83532.96153153); double x2n = hide_double(-0.0000000013152); double x2p = hide_double(0.0000000013152); double x3n = hide_double(-HUGE_VAL); double x3p = hide_double(HUGE_VAL); vec_double2 x0n_v = spu_splats(x0n); vec_double2 x0p_v = spu_splats(x0p); vec_double2 x1n_v = spu_splats(x1n); vec_double2 x1p_v = spu_splats(x1p); vec_double2 x2n_v = spu_splats(x2n); vec_double2 x2p_v = spu_splats(x2p); vec_double2 x3n_v = spu_splats(x3n); vec_double2 x3p_v = spu_splats(x3p); vec_double2 res_v; TEST_START("negated2"); res_v = negated2(x0n_v); TEST_CHECK("20040930102629EJL", allequal_double2( res_v, x0p_v ), 0); res_v = negated2(x0p_v); TEST_CHECK("20040930102631EJL", allequal_double2( res_v, x0n_v ), 0); res_v = negated2(x1n_v); TEST_CHECK("20040930102632EJL", allequal_double2( res_v, x1p_v ), 0); res_v = negated2(x1p_v); TEST_CHECK("20040930102635EJL", allequal_double2( res_v, x1n_v ), 0); res_v = negated2(x2n_v); TEST_CHECK("20040930102637EJL", allequal_double2( res_v, x2p_v ), 0); res_v = negated2(x2p_v); TEST_CHECK("20040930102639EJL", allequal_double2( res_v, x2n_v ), 0); res_v = negated2(x3n_v); TEST_CHECK("20040930102641EJL", allposinf_double2( res_v ), 0); res_v = negated2(x3p_v); TEST_CHECK("20040930102643EJL", allneginf_double2( res_v ), 0); TEST_SET_DONE(); TEST_EXIT(); }
int main() { TEST_SET_START("20040908022501EJL","EJL", "fabs"); double x0n = hide_double(-0.0); double x0p = hide_double(0.0); double x1n = hide_double(-83532.96153153); double x1p = hide_double(83532.96153153); double x2n = hide_double(-0.0000000013152); double x2p = hide_double(0.0000000013152); double x3n = hide_double(-HUGE_VAL); double x3p = hide_double(HUGE_VAL); vec_double2 x0n_v = spu_splats(x0n); vec_double2 x0p_v = spu_splats(x0p); vec_double2 x1n_v = spu_splats(x1n); vec_double2 x1p_v = spu_splats(x1p); vec_double2 x2n_v = spu_splats(x2n); vec_double2 x2p_v = spu_splats(x2p); vec_double2 x3n_v = spu_splats(x3n); vec_double2 x3p_v = spu_splats(x3p); double res; vec_double2 res_v; TEST_START("fabsd2"); res_v = fabsd2(x0n_v); TEST_CHECK("20040908022502EJL", allequal_double2( res_v, x0p_v ), 0); res_v = fabsd2(x0p_v); TEST_CHECK("20040908022503EJL", allequal_double2( res_v, x0p_v ), 0); res_v = fabsd2(x1n_v); TEST_CHECK("20040908022504EJL", allequal_double2( res_v, x1p_v ), 0); res_v = fabsd2(x1p_v); TEST_CHECK("20040908022505EJL", allequal_double2( res_v, x1p_v ), 0); res_v = fabsd2(x2n_v); TEST_CHECK("20040908022506EJL", allequal_double2( res_v, x2p_v ), 0); res_v = fabsd2(x2p_v); TEST_CHECK("20040908022507EJL", allequal_double2( res_v, x2p_v ), 0); res_v = fabsd2(x3n_v); TEST_CHECK("20040908022508EJL", allposinf_double2( res_v ), 0); res_v = fabsd2(x3p_v); TEST_CHECK("20040908022509EJL", allposinf_double2( res_v ), 0); TEST_START("fabs"); res = fabs( x0n ); TEST_CHECK("20040908022510EJL", res == x0p, 0); res = fabs( x0p ); TEST_CHECK("20040908022511EJL", res == x0p, 0); res = fabs( x1n ); TEST_CHECK("20040908022512EJL", res == x1p, 0); res = fabs( x1p ); TEST_CHECK("20040908022513EJL", res == x1p, 0); res = fabs( x2n ); TEST_CHECK("20040908022514EJL", res == x2p, 0); res = fabs( x2p ); TEST_CHECK("20040908022515EJL", res == x2p, 0); res = fabs( x3n ); TEST_CHECK("20040908022516EJL", isinf(res) == 1, 0); res = fabs( x3p ); TEST_CHECK("20040908022517EJL", isinf(res) == 1, 0); TEST_SET_DONE(); TEST_EXIT(); }
int main() { TEST_SET_START("20040928174038EJL","EJL", "rsqrtd2"); unsigned long long i6 = 0x7464fff515d76f87ull; unsigned long long i6r = 0x25b3c03b72dba06cull; unsigned long long i7 = 0x7606a4533cf5605eull; unsigned long long i7r = 0x24e3056f4b45f6a9ull; unsigned long long i8 = 0x4beae58c6f48733eull; unsigned long long i8r = 0x39f173b787396c5full; unsigned long long i9 = 0x3999ed5c8316b00bull; unsigned long long i9r = 0x43192359a70ec761ull; unsigned long long i10 = 0x68f7885c4b84b793ull; unsigned long long i10r = 0x2b6a62d48c269d90ull; unsigned long long i11 = 0x1aabc083c5c26227ull; unsigned long long i11r = 0x52912e543817fabbull; double x0 = hide_double(-HUGE_VAL); // -Inf -> NaN double x1 = hide_double(HUGE_VAL); // Inf -> +0 double x2 = hide_double(0.0); // +0 -> Inf double x3 = hide_double(-0.0); // -0 -> -Inf double x4 = hide_double(nan("")); // NaN -> NaN double x5 = hide_double(4.0); double x5r = hide_double(0.5); double x6 = hide_double(make_double(i6)); double x6r = hide_double(make_double(i6r)); double x7 = hide_double(make_double(i7)); double x7r = hide_double(make_double(i7r)); double x8 = hide_double(make_double(i8)); double x8r = hide_double(make_double(i8r)); double x9 = hide_double(make_double(i9)); double x9r = hide_double(make_double(i9r)); double x10 = hide_double(make_double(i10)); double x10r = hide_double(make_double(i10r)); double x11 = hide_double(make_double(i11)); double x11r = hide_double(make_double(i11r)); vec_double2 x0_v = spu_splats(x0); vec_double2 x1_v = spu_splats(x1); vec_double2 x2_v = spu_splats(x2); vec_double2 x3_v = spu_splats(x3); vec_double2 x4_v = spu_splats(x4); vec_double2 x5_v = spu_splats(x5); vec_double2 x5r_v = spu_splats(x5r); vec_double2 x6_v = spu_splats(x6); vec_double2 x6r_v = spu_splats(x6r); vec_double2 x7_v = spu_splats(x7); vec_double2 x7r_v = spu_splats(x7r); vec_double2 x8_v = spu_splats(x8); vec_double2 x8r_v = spu_splats(x8r); vec_double2 x9_v = spu_splats(x9); vec_double2 x9r_v = spu_splats(x9r); vec_double2 x10_v = spu_splats(x10); vec_double2 x10r_v = spu_splats(x10r); vec_double2 x11_v = spu_splats(x11); vec_double2 x11r_v = spu_splats(x11r); vec_double2 res_v; TEST_START("rsqrtd2"); res_v = rsqrtd2(x0_v); TEST_CHECK("20040928174042EJL", allnan_double2( res_v ), 0); res_v = rsqrtd2(x1_v); TEST_CHECK("20040928174045EJL", allposzero_double2( res_v ), 0); res_v = rsqrtd2(x2_v); TEST_CHECK("20040928174047EJL", allposinf_double2( res_v ), 0); res_v = rsqrtd2(x3_v); TEST_CHECK("20040928174049EJL", allneginf_double2( res_v ), 0); res_v = rsqrtd2(x4_v); TEST_CHECK("20040928174054EJL", allnan_double2( res_v ), 0); res_v = rsqrtd2(x5_v); TEST_CHECK("20040928174058EJL", allequal_double2( res_v, x5r_v ), 0); res_v = rsqrtd2(x6_v); TEST_CHECK("20040928174101EJL", allequal_ulps_double2( res_v, x6r_v, 1 ), 0); res_v = rsqrtd2(x7_v); TEST_CHECK("20040928174104EJL", allequal_ulps_double2( res_v, x7r_v, 1 ), 0); res_v = rsqrtd2(x8_v); TEST_CHECK("20040928174106EJL", allequal_ulps_double2( res_v, x8r_v, 1 ), 0); res_v = rsqrtd2(x9_v); TEST_CHECK("20040928174108EJL", allequal_ulps_double2( res_v, x9r_v, 1 ), 0); res_v = rsqrtd2(x10_v); TEST_CHECK("20040928174110EJL", allequal_ulps_double2( res_v, x10r_v, 1 ), 0); res_v = rsqrtd2(x11_v); TEST_CHECK("20040928174113EJL", allequal_ulps_double2( res_v, x11r_v, 1 ), 0); TEST_SET_DONE(); TEST_EXIT(); }
int main() { TEST_SET_START("20060825000000AAN","AAN", "isgreaterequald2"); //-QNaN: NG double x0 = hide_double(-nan("")); double y0 = hide_double(1.0); unsigned long long r0 = 0x0000000000000000ull; //+Inf > -Inf double x1 = hide_double( HUGE_VAL); double y1 = hide_double(-HUGE_VAL); unsigned long long r1 = 0xffffffffffffffffull; //-Inf < -Dmax double x2 = hide_double(-HUGE_VAL); double y2 = hide_double(-DBL_MAX); unsigned long long r2 = 0x0000000000000000ull; //-Norm > -Inf double x3 = hide_double(-67418234.34256245); double y3 = hide_double(-HUGE_VAL); unsigned long long r3 = 0xffffffffffffffffull; //-Norm < -Denorm double x4 = hide_double(-273453.3234458053); double y4 = hide_double(-3.0e-321); unsigned long long r4 = 0x0000000000000000ull; //-Norm = -Norm double x5 = hide_double(-168.97345223013); double y5 = hide_double(-168.97345223013); unsigned long long r5 = 0xffffffffffffffffull; //-Norm > -Norm double x6 = hide_double(-168.97345223013); double y6 = hide_double(-21345853556.492); unsigned long long r6 = 0xffffffffffffffffull; //-Norm < -0 double x7 = hide_double(-168.97345223013); double y7 = hide_double(-0.0); unsigned long long r7 = 0x0000000000000000ull; //-Unf > -Norm double x8 = hide_double(-1.0e-999); double y8 = hide_double(-83532.96153153); unsigned long long r8 = 0xffffffffffffffffull; //-Unf = 0 double x9 = hide_double(-1.0e-999); double y9 = hide_double(0.0); unsigned long long r9 = 0xffffffffffffffffull; //-0 = 0 double x10 = hide_double(-0.0); double y10 = hide_double( 0.0); unsigned long long r10 = 0xffffffffffffffffull; //+Unf = 0 double x11 = hide_double( 1.0e-999); double y11 = hide_double( 0.0); unsigned long long r11 = 0xffffffffffffffffull; //+Unf < +Norm double x12 = hide_double( 1e-999); double y12 = hide_double(0.0031529324); unsigned long long r12 = 0x0000000000000000ull; //+Norm > +Denorm double x13 = hide_double(5172.2845321); double y13 = hide_double(3.0e-321); unsigned long long r13 = 0xffffffffffffffffull; //+Norm = +Norm double x14 = hide_double(5172.2845321); double y14 = hide_double(5172.2845321); unsigned long long r14 = 0xffffffffffffffffull; //+Norm < +Norm double x15 = hide_double(264.345643345); double y15 = hide_double(2353705.31415); unsigned long long r15 = 0x0000000000000000ull; //+Norm > -Norm double x16 = hide_double( 926.605118542); double y16 = hide_double(-9.43574552184); unsigned long long r16 = 0xffffffffffffffffull; //+Norm < +Dmax double x17 = hide_double( 926.605118542); double y17 = hide_double(DBL_MAX); unsigned long long r17 = 0x0000000000000000ull; //+Inf > +Dmax double x18 = hide_double(HUGE_VAL); double y18 = hide_double(DBL_MAX); unsigned long long r18 = 0xffffffffffffffffull; //+QNaN: NG double x19 = hide_double(nan("")); double y19 = hide_double(3.14); unsigned long long r19 = 0x0000000000000000ull; vec_double2 x0_v = spu_splats(x0); vec_double2 y0_v = spu_splats(y0); vec_ullong2 r0_v = spu_splats(r0); vec_double2 x1_v = spu_splats(x1); vec_double2 y1_v = spu_splats(y1); vec_ullong2 r1_v = spu_splats(r1); vec_double2 x2_v = spu_splats(x2); vec_double2 y2_v = spu_splats(y2); vec_ullong2 r2_v = spu_splats(r2); vec_double2 x3_v = spu_splats(x3); vec_double2 y3_v = spu_splats(y3); vec_ullong2 r3_v = spu_splats(r3); vec_double2 x4_v = spu_splats(x4); vec_double2 y4_v = spu_splats(y4); vec_ullong2 r4_v = spu_splats(r4); vec_double2 x5_v = spu_splats(x5); vec_double2 y5_v = spu_splats(y5); vec_ullong2 r5_v = spu_splats(r5); vec_double2 x6_v = spu_splats(x6); vec_double2 y6_v = spu_splats(y6); vec_ullong2 r6_v = spu_splats(r6); vec_double2 x7_v = spu_splats(x7); vec_double2 y7_v = spu_splats(y7); vec_ullong2 r7_v = spu_splats(r7); vec_double2 x8_v = spu_splats(x8); vec_double2 y8_v = spu_splats(y8); vec_ullong2 r8_v = spu_splats(r8); vec_double2 x9_v = spu_splats(x9); vec_double2 y9_v = spu_splats(y9); vec_ullong2 r9_v = spu_splats(r9); vec_double2 x10_v = spu_splats(x10); vec_double2 y10_v = spu_splats(y10); vec_ullong2 r10_v = spu_splats(r10); vec_double2 x11_v = spu_splats(x11); vec_double2 y11_v = spu_splats(y11); vec_ullong2 r11_v = spu_splats(r11); vec_double2 x12_v = spu_splats(x12); vec_double2 y12_v = spu_splats(y12); vec_ullong2 r12_v = spu_splats(r12); vec_double2 x13_v = spu_splats(x13); vec_double2 y13_v = spu_splats(y13); vec_ullong2 r13_v = spu_splats(r13); vec_double2 x14_v = spu_splats(x14); vec_double2 y14_v = spu_splats(y14); vec_ullong2 r14_v = spu_splats(r14); vec_double2 x15_v = spu_splats(x15); vec_double2 y15_v = spu_splats(y15); vec_ullong2 r15_v = spu_splats(r15); vec_double2 x16_v = spu_splats(x16); vec_double2 y16_v = spu_splats(y16); vec_ullong2 r16_v = spu_splats(r16); vec_double2 x17_v = spu_splats(x17); vec_double2 y17_v = spu_splats(y17); vec_ullong2 r17_v = spu_splats(r17); vec_double2 x18_v = spu_splats(x18); vec_double2 y18_v = spu_splats(y18); vec_ullong2 r18_v = spu_splats(r18); vec_double2 x19_v = spu_splats(x19); vec_double2 y19_v = spu_splats(y19); vec_ullong2 r19_v = spu_splats(r19); vec_ullong2 res_v; TEST_START("isgreaterequald2"); res_v = (vec_ullong2)isgreaterequald2(x0_v, y0_v); TEST_CHECK("20060825000000AAN", allequal_ullong2( res_v, r0_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x1_v, y1_v); TEST_CHECK("20060825000001AAN", allequal_ullong2( res_v, r1_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x2_v, y2_v); TEST_CHECK("20060825000002AAN", allequal_ullong2( res_v, r2_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x3_v, y3_v); TEST_CHECK("20060825000003AAN", allequal_ullong2( res_v, r3_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x4_v, y4_v); TEST_CHECK("20060825000004AAN", allequal_ullong2( res_v, r4_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x5_v, y5_v); TEST_CHECK("20060825000005AAN", allequal_ullong2( res_v, r5_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x6_v, y6_v); TEST_CHECK("20060825000006AAN", allequal_ullong2( res_v, r6_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x7_v, y7_v); TEST_CHECK("20060825000007AAN", allequal_ullong2( res_v, r7_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x8_v, y8_v); TEST_CHECK("20060825000008AAN", allequal_ullong2( res_v, r8_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x9_v, y9_v); TEST_CHECK("20060825000009AAN", allequal_ullong2( res_v, r9_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x10_v, y10_v); TEST_CHECK("20060825000000AAN", allequal_ullong2( res_v, r10_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x11_v, y11_v); TEST_CHECK("20060825000001AAN", allequal_ullong2( res_v, r11_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x12_v, y12_v); TEST_CHECK("20060825000002AAN", allequal_ullong2( res_v, r12_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x13_v, y13_v); TEST_CHECK("20060825000003AAN", allequal_ullong2( res_v, r13_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x14_v, y14_v); TEST_CHECK("20060825000004AAN", allequal_ullong2( res_v, r14_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x15_v, y15_v); TEST_CHECK("20060825000005AAN", allequal_ullong2( res_v, r15_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x16_v, y16_v); TEST_CHECK("20060825000006AAN", allequal_ullong2( res_v, r16_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x17_v, y17_v); TEST_CHECK("20060825000007AAN", allequal_ullong2( res_v, r17_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x18_v, y18_v); TEST_CHECK("20060825000008AAN", allequal_ullong2( res_v, r18_v ), 0); res_v = (vec_ullong2)isgreaterequald2(x19_v, y19_v); TEST_CHECK("20060825000009AAN", allequal_ullong2( res_v, r19_v ), 0); TEST_SET_DONE(); TEST_EXIT(); }
int main() { TEST_SET_START("20040920095218EJL","EJL", "recipd2"); unsigned long long i6 = 0x7fd0000000000001ull; // 2^1022 + 1 ulp unsigned long long i7 = 0xffd0000000000000ull; // -2^1022 unsigned long long i7r = 0x8010000000000000ull; // -2^-1022 unsigned long long i8 = 0x7606a4533cf5605eull; // random values unsigned long long i8r = 0x09d69cea2b5b5b57ull; unsigned long long i9 = 0x4c042c295376566eull; unsigned long long i9r = 0x33d9618e87b961f4ull; unsigned long long i10 = 0x39b3720562510408ull; unsigned long long i10r = 0x462a54842d7f9b5dull; unsigned long long i11 = 0x6911a64538a389aeull; unsigned long long i11r = 0x16cd02637ed13ff2ull; unsigned long long i12 = 0x1ac4d062d451c99dull; unsigned long long i12r = 0x6518994c26ebbb3eull; double x0 = hide_double(-HUGE_VAL); // -Inf double x1 = hide_double(HUGE_VAL); // Inf double x2 = hide_double(0.0); // 0 double x3 = hide_double(-0.0); // -0 double x4 = hide_double(nan("")); // NaN double x5 = hide_double(2.0); double x5r = hide_double(0.5); double x6 = hide_double(make_double(i6)); double x7 = hide_double(make_double(i7)); double x7r = hide_double(make_double(i7r)); double x8 = hide_double(make_double(i8)); double x8r = hide_double(make_double(i8r)); double x9 = hide_double(make_double(i9)); double x9r = hide_double(make_double(i9r)); double x10 = hide_double(make_double(i10)); double x10r = hide_double(make_double(i10r)); double x11 = hide_double(make_double(i11)); double x11r = hide_double(make_double(i11r)); double x12 = hide_double(make_double(i12)); double x12r = hide_double(make_double(i12r)); vec_double2 x0_v = spu_splats(x0); vec_double2 x1_v = spu_splats(x1); vec_double2 x2_v = spu_splats(x2); vec_double2 x3_v = spu_splats(x3); vec_double2 x4_v = spu_splats(x4); vec_double2 x5_v = spu_splats(x5); vec_double2 x5r_v = spu_splats(x5r); vec_double2 x6_v = spu_splats(x6); vec_double2 x7_v = spu_splats(x7); vec_double2 x7r_v = spu_splats(x7r); vec_double2 x8_v = spu_splats(x8); vec_double2 x8r_v = spu_splats(x8r); vec_double2 x9_v = spu_splats(x9); vec_double2 x9r_v = spu_splats(x9r); vec_double2 x10_v = spu_splats(x10); vec_double2 x10r_v = spu_splats(x10r); vec_double2 x11_v = spu_splats(x11); vec_double2 x11r_v = spu_splats(x11r); vec_double2 x12_v = spu_splats(x12); vec_double2 x12r_v = spu_splats(x12r); vec_double2 res_v; TEST_START("recipd2"); res_v = recipd2(x0_v); TEST_CHECK("20040920095224EJL", allnegzero_double2( res_v ), 0); res_v = recipd2(x1_v); TEST_CHECK("20040920095226EJL", allposzero_double2( res_v ), 0); res_v = recipd2(x2_v); TEST_CHECK("20040920095228EJL", allposinf_double2( res_v ), 0); res_v = recipd2(x3_v); TEST_CHECK("20040920095233EJL", allneginf_double2( res_v ), 0); res_v = recipd2(x4_v); TEST_CHECK("20040920095235EJL", allnan_double2( res_v ), 0); res_v = recipd2(x5_v); TEST_CHECK("20040920095237EJL", allequal_double2( res_v, x5r_v ), 0); res_v = recipd2(x6_v); TEST_CHECK("20040920095239EJL", allzerodenorm_double2( res_v ), 0); res_v = recipd2(x7_v); TEST_CHECK("20040920095242EJL", allequal_double2( res_v, x7r_v ), 0); res_v = recipd2(x8_v); TEST_CHECK("20040920095245EJL", allequal_ulps_double2( res_v, x8r_v, 1 ), 0); res_v = recipd2(x9_v); TEST_CHECK("20040920095247EJL", allequal_ulps_double2( res_v, x9r_v, 1 ), 0); res_v = recipd2(x10_v); TEST_CHECK("20040920095248EJL", allequal_ulps_double2( res_v, x10r_v, 1 ), 0); res_v = recipd2(x11_v); TEST_CHECK("20040920095250EJL", allequal_ulps_double2( res_v, x11r_v, 1 ), 0); res_v = recipd2(x12_v); TEST_CHECK("20040920095252EJL", allequal_ulps_double2( res_v, x12r_v, 1 ), 0); TEST_SET_DONE(); TEST_EXIT(); }
int main() { TEST_SET_START("20060828114000MH","MH", "fmad2"); // double denorm_min = hide_double(make_double(0x0000000000000001ull)); double denorm_max = hide_double(make_double(0x000fffffffffffffull)); // double norm_min = hide_double(make_double(0x0010000000000000ull)); double norm_max = hide_double(make_double(0x7fefffffffffffffull)); double x0 = hide_double(1760.135); double y0 = hide_double(19355.03); double z0 = hide_double(-12351.9); double a0 = hide_double(34055113.82905); double x1 = hide_double(-139.035); double y1 = hide_double(0.0); double z1 = hide_double(-1.0); double x2 = hide_double(nan("")); double y2 = hide_double(-1.0); double z2 = hide_double(-0.0); double x3 = hide_double(1.0); double y3 = hide_double(HUGE_VAL); double z3 = hide_double(-1.0); double x4 = norm_max; double y4 = norm_max; double z4 = hide_double(0.0); double x5 = hide_double(100.0); double y5 = denorm_max; double z5 = hide_double(0.0); double a5 = hide_double(make_double(0x0078fffffffffffeull)); vec_double2 x0_v = spu_splats(x0); vec_double2 y0_v = spu_splats(y0); vec_double2 z0_v = spu_splats(z0); vec_double2 x1_v = spu_splats(x1); vec_double2 y1_v = spu_splats(y1); vec_double2 z1_v = spu_splats(z1); vec_double2 x2_v = spu_splats(x2); vec_double2 y2_v = spu_splats(y2); vec_double2 z2_v = spu_splats(z2); vec_double2 x3_v = spu_splats(x3); vec_double2 y3_v = spu_splats(y3); vec_double2 z3_v = spu_splats(z3); vec_double2 x4_v = spu_splats(x4); vec_double2 y4_v = spu_splats(y4); vec_double2 z4_v = spu_splats(z4); vec_double2 x5_v = spu_splats(x5); vec_double2 y5_v = spu_splats(y5); vec_double2 z5_v = spu_splats(z5); vec_double2 a0_v = spu_splats(a0); vec_double2 a1_v = spu_splats(z1); vec_double2 a5_v = spu_splats(a5); vec_double2 res_v; TEST_START("fmad2"); res_v = fmad2(x0_v, y0_v, z0_v); TEST_CHECK("20060828114001MH", allequal_ulps_double2( res_v, a0_v, 1 ), 0); res_v = fmad2(y0_v, x0_v, z0_v); TEST_CHECK("20060828114002MH", allequal_ulps_double2( res_v, a0_v, 1 ), 0); res_v = fmad2(x1_v, y1_v, z1_v); TEST_CHECK("20060828114003MH", allequal_ulps_double2( res_v, a1_v, 1 ), 0); res_v = fmad2(y1_v, x1_v, z1_v); TEST_CHECK("20060828114004MH", allequal_ulps_double2( res_v, a1_v, 1 ), 0); res_v = fmad2(x2_v, y2_v, z2_v); TEST_CHECK("20060828114005MH", allnan_double2( res_v ), 0); res_v = fmad2(y2_v, x2_v, z2_v); TEST_CHECK("20060828114006MH", allnan_double2( res_v ), 0); res_v = fmad2(x3_v, y3_v, z3_v); TEST_CHECK("20060828114007MH", allposinf_double2( res_v ), 0); res_v = fmad2(y3_v, x3_v, z3_v); TEST_CHECK("20060828114008MH", allposinf_double2( res_v ), 0); res_v = fmad2(x4_v, y4_v, z4_v); TEST_CHECK("20060828114009MH", allposinf_double2( res_v ), 0); res_v = fmad2(y4_v, x4_v, z4_v); TEST_CHECK("20060828114010MH", allposinf_double2( res_v ), 0); res_v = fmad2(x5_v, y5_v, z5_v); TEST_CHECK("20060828114011MH", allequal_ulps_double2( res_v, a5_v, 1 ), 0); res_v = fmad2(y5_v, x5_v, z5_v); TEST_CHECK("20060828114012MH", allequal_ulps_double2( res_v, a5_v, 1 ), 0); //printf("res:%.10le, a5:%.10le\n", spu_extract(res_v, 0), spu_extract(a5_v, 0)); TEST_SET_DONE(); TEST_EXIT(); }
int main() { TEST_SET_START("20060904000000AAN","AAN", "ilogbd2"); // -Nan double x0 = hide_double(-nan("")); long long r0 = (long long)FP_ILOGBNAN; // -Inf double x1 = hide_double(-HUGE_VAL); long long r1 = (long long)FP_ILOGB0; // -Dmax double x2 = hide_double(-DBL_MAX); long long r2 = 1023ll; // -Norm double x3 = hide_double(-824842.58421394); long long r3 = 19ll; // -Dmin double x4 = hide_double(-DBL_MIN); long long r4 = -1022ll; // -Denorm double x5 = hide_double(-2.40e-310); long long r5 = -1029ll; // -Unf double x6 = hide_double(-1.0e-999); long long r6 = (long long)FP_ILOGB0; // -0 double x7 = hide_double(-0.0); long long r7 = (long long)FP_ILOGB0; // 0 double x8 = hide_double( 0.0); long long r8 = (long long)FP_ILOGB0; // +Unf double x9 = hide_double( 1.0e-999); long long r9 = (long long)FP_ILOGB0; // +Denorm double x10 = hide_double( 2.40e-310); long long r10 = -1029ll; // +Dmin double x11 = hide_double( DBL_MIN); long long r11 = -1022ll; // +Norm double x12 = hide_double(3.14152634); long long r12 = 1ll; // +Norm double x13 = hide_double(7.0673903e149); long long r13 = 497ll; // +Norm double x14 = hide_double(2.4673e304); long long r14 = 1011ll; // +Norm double x15 = hide_double(7.235672e-25); long long r15 = -81ll; // +Denorm double x16 = hide_double(9.452854e-312); long long r16 = -1034ll; // +Demorm double x17 = hide_double(3.045784e-320); long long r17 = -1062ll; // -Norm double x18 = hide_double(-6.459273e7); long long r18 = 25ll; // -Norm double x19 = hide_double(-2.493472e-99); long long r19 = -328ll; // -Norm double x20 = hide_double(-1.4824543e128); long long r20 = 425ll; // -Denorm double x21 = hide_double(-5.53856231e-315); long long r21 = -1044ll; // -Demorm double x22 = hide_double(-2.5684367e-312); long long r22 = -1036ll; // +Dmax double x23 = hide_double(DBL_MAX); long long r23 = 1023ll; // +Inf double x24 = hide_double(HUGE_VAL); long long r24 = (long long)FP_ILOGB0; //+Nan double x25 = hide_double( nan("")); long long r25 = (long long)FP_ILOGBNAN; // Compound vec_double2 x26_v = (vec_double2) { -2.561286432e-317, -1.0e-999 }; vec_llong2 r26_v = (vec_llong2) { -1052ll, FP_ILOGB0 }; // Compound vec_double2 x27_v = (vec_double2) { 345.27533, -8.673e-310 }; vec_llong2 r27_v = (vec_llong2) { 8ll, -1027ll }; // Compound vec_double2 x28_v = (vec_double2) { nan(""), -3678342.8765343 }; vec_llong2 r28_v = (vec_llong2) { FP_ILOGBNAN, 21ll }; // Compound vec_double2 x29_v = (vec_double2) { HUGE_VAL, -nan("") }; vec_llong2 r29_v = (vec_llong2) { FP_ILOGB0, FP_ILOGBNAN }; // Compound vec_double2 x30_v = (vec_double2) { -1.2e-99, -HUGE_VAL } ; vec_llong2 r30_v = (vec_llong2) { -329ll, FP_ILOGB0 }; vec_double2 x0_v = spu_splats(x0); vec_llong2 r0_v = spu_splats(r0); vec_double2 x1_v = spu_splats(x1); vec_llong2 r1_v = spu_splats(r1); vec_double2 x2_v = spu_splats(x2); vec_llong2 r2_v = spu_splats(r2); vec_double2 x3_v = spu_splats(x3); vec_llong2 r3_v = spu_splats(r3); vec_double2 x4_v = spu_splats(x4); vec_llong2 r4_v = spu_splats(r4); vec_double2 x5_v = spu_splats(x5); vec_llong2 r5_v = spu_splats(r5); vec_double2 x6_v = spu_splats(x6); vec_llong2 r6_v = spu_splats(r6); vec_double2 x7_v = spu_splats(x7); vec_llong2 r7_v = spu_splats(r7); vec_double2 x8_v = spu_splats(x8); vec_llong2 r8_v = spu_splats(r8); vec_double2 x9_v = spu_splats(x9); vec_llong2 r9_v = spu_splats(r9); vec_double2 x10_v = spu_splats(x10); vec_llong2 r10_v = spu_splats(r10); vec_double2 x11_v = spu_splats(x11); vec_llong2 r11_v = spu_splats(r11); vec_double2 x12_v = spu_splats(x12); vec_llong2 r12_v = spu_splats(r12); vec_double2 x13_v = spu_splats(x13); vec_llong2 r13_v = spu_splats(r13); vec_double2 x14_v = spu_splats(x14); vec_llong2 r14_v = spu_splats(r14); vec_double2 x15_v = spu_splats(x15); vec_llong2 r15_v = spu_splats(r15); vec_double2 x16_v = spu_splats(x16); vec_llong2 r16_v = spu_splats(r16); vec_double2 x17_v = spu_splats(x17); vec_llong2 r17_v = spu_splats(r17); vec_double2 x18_v = spu_splats(x18); vec_llong2 r18_v = spu_splats(r18); vec_double2 x19_v = spu_splats(x19); vec_llong2 r19_v = spu_splats(r19); vec_double2 x20_v = spu_splats(x20); vec_llong2 r20_v = spu_splats(r20); vec_double2 x21_v = spu_splats(x21); vec_llong2 r21_v = spu_splats(r21); vec_double2 x22_v = spu_splats(x22); vec_llong2 r22_v = spu_splats(r22); vec_double2 x23_v = spu_splats(x23); vec_llong2 r23_v = spu_splats(r23); vec_double2 x24_v = spu_splats(x24); vec_llong2 r24_v = spu_splats(r24); vec_double2 x25_v = spu_splats(x25); vec_llong2 r25_v = spu_splats(r25); vec_llong2 res_v; TEST_START("ilogbd2"); res_v = (vec_llong2)ilogbd2(x0_v); TEST_CHECK("20060904000000AAN", allequal_llong2( res_v, r0_v ), 0); res_v = (vec_llong2)ilogbd2(x1_v); TEST_CHECK("20060904000001AAN", allequal_llong2( res_v, r1_v ), 0); res_v = (vec_llong2)ilogbd2(x2_v); TEST_CHECK("20060904000002AAN", allequal_llong2( res_v, r2_v ), 0); res_v = (vec_llong2)ilogbd2(x3_v); TEST_CHECK("20060904000003AAN", allequal_llong2( res_v, r3_v ), 0); res_v = (vec_llong2)ilogbd2(x4_v); TEST_CHECK("20060904000004AAN", allequal_llong2( res_v, r4_v ), 0); res_v = (vec_llong2)ilogbd2(x5_v); TEST_CHECK("20060904000005AAN", allequal_llong2( res_v, r5_v ), 0); res_v = (vec_llong2)ilogbd2(x6_v); TEST_CHECK("20060904000006AAN", allequal_llong2( res_v, r6_v ), 0); res_v = (vec_llong2)ilogbd2(x7_v); TEST_CHECK("20060904000007AAN", allequal_llong2( res_v, r7_v ), 0); res_v = (vec_llong2)ilogbd2(x8_v); TEST_CHECK("20060904000008AAN", allequal_llong2( res_v, r8_v ), 0); res_v = (vec_llong2)ilogbd2(x9_v); TEST_CHECK("20060904000009AAN", allequal_llong2( res_v, r9_v ), 0); res_v = (vec_llong2)ilogbd2(x10_v); TEST_CHECK("20060904000010AAN", allequal_llong2( res_v, r10_v ), 0); res_v = (vec_llong2)ilogbd2(x11_v); TEST_CHECK("20060904000011AAN", allequal_llong2( res_v, r11_v ), 0); res_v = (vec_llong2)ilogbd2(x12_v); TEST_CHECK("20060904000012AAN", allequal_llong2( res_v, r12_v ), 0); res_v = (vec_llong2)ilogbd2(x13_v); TEST_CHECK("20060904000013AAN", allequal_llong2( res_v, r13_v ), 0); res_v = (vec_llong2)ilogbd2(x14_v); TEST_CHECK("20060904000014AAN", allequal_llong2( res_v, r14_v ), 0); res_v = (vec_llong2)ilogbd2(x15_v); TEST_CHECK("20060904000015AAN", allequal_llong2( res_v, r15_v ), 0); res_v = (vec_llong2)ilogbd2(x16_v); TEST_CHECK("20060904000016AAN", allequal_llong2( res_v, r16_v ), 0); res_v = (vec_llong2)ilogbd2(x17_v); TEST_CHECK("20060904000017AAN", allequal_llong2( res_v, r17_v ), 0); res_v = (vec_llong2)ilogbd2(x18_v); TEST_CHECK("20060904000018AAN", allequal_llong2( res_v, r18_v ), 0); res_v = (vec_llong2)ilogbd2(x19_v); TEST_CHECK("20060904000019AAN", allequal_llong2( res_v, r19_v ), 0); res_v = (vec_llong2)ilogbd2(x20_v); TEST_CHECK("20060904000020AAN", allequal_llong2( res_v, r20_v ), 0); res_v = (vec_llong2)ilogbd2(x21_v); TEST_CHECK("20060904000021AAN", allequal_llong2( res_v, r21_v ), 0); res_v = (vec_llong2)ilogbd2(x22_v); TEST_CHECK("20060904000022AAN", allequal_llong2( res_v, r22_v ), 0); res_v = (vec_llong2)ilogbd2(x23_v); TEST_CHECK("20060904000023AAN", allequal_llong2( res_v, r23_v ), 0); res_v = (vec_llong2)ilogbd2(x24_v); TEST_CHECK("20060904000024AAN", allequal_llong2( res_v, r24_v ), 0); res_v = (vec_llong2)ilogbd2(x25_v); TEST_CHECK("20060904000025AAN", allequal_llong2( res_v, r25_v ), 0); res_v = (vec_llong2)ilogbd2(x26_v); TEST_CHECK("20060904000026AAN", allequal_llong2( res_v, r26_v ), 0); res_v = (vec_llong2)ilogbd2(x27_v); TEST_CHECK("20060904000027AAN", allequal_llong2( res_v, r27_v ), 0); res_v = (vec_llong2)ilogbd2(x28_v); TEST_CHECK("20060904000028AAN", allequal_llong2( res_v, r28_v ), 0); res_v = (vec_llong2)ilogbd2(x29_v); TEST_CHECK("20060904000029AAN", allequal_llong2( res_v, r29_v ), 0); res_v = (vec_llong2)ilogbd2(x30_v); TEST_CHECK("20060904000030AAN", allequal_llong2( res_v, r30_v ), 0); TEST_SET_DONE(); TEST_EXIT(); }
int main() { TEST_SET_START("20060824103000MH","MH", "fmind2_fmaxd2"); double denorm_min = hide_double(make_double(0x0000000000000001ull)); double denorm_max = hide_double(make_double(0x000fffffffffffffull)); double norm_min = hide_double(make_double(0x0010000000000000ull)); double norm_max = hide_double(make_double(0x7fefffffffffffffull)); double x0min = hide_double(1760.135); double x0max = hide_double(19355.03); double x1min = hide_double(-12351.9); double x1max = hide_double(-139.035); double x2min = hide_double(-1.0); double x2max = hide_double(0.0); double x3min = hide_double(nan("")); double x3max = hide_double(-1.0); double x4min = hide_double(-0.0); double x4max = hide_double(0.0); double x5min = denorm_min; double x5max = hide_double(1.0e-323); double x6min = norm_max; double x6max = hide_double(HUGE_VAL); double x7min = hide_double(-HUGE_VAL); double x7max = hide_double(19355.03); double x8min = hide_double(-HUGE_VAL); double x8max = hide_double(HUGE_VAL); double x9min = denorm_max; double x9max = norm_min; vec_double2 x0min_v = spu_splats(x0min); vec_double2 x0max_v = spu_splats(x0max); vec_double2 x1min_v = spu_splats(x1min); vec_double2 x1max_v = spu_splats(x1max); vec_double2 x2min_v = spu_splats(x2min); vec_double2 x2max_v = spu_splats(x2max); vec_double2 x3min_v = spu_splats(x3min); vec_double2 x3max_v = spu_splats(x3max); vec_double2 x4min_v = spu_splats(x4min); vec_double2 x4max_v = spu_splats(x4max); vec_double2 x5min_v = spu_splats(x5min); vec_double2 x5max_v = spu_splats(x5max); vec_double2 x6min_v = spu_splats(x6min); vec_double2 x6max_v = spu_splats(x6max); vec_double2 x7min_v = spu_splats(x7min); vec_double2 x7max_v = spu_splats(x7max); vec_double2 x8min_v = spu_splats(x8min); vec_double2 x8max_v = spu_splats(x8max); vec_double2 x9min_v = spu_splats(x9min); vec_double2 x9max_v = spu_splats(x9max); vec_double2 x51min_v = (vec_double2){x5min, x1min}; vec_double2 x51max_v = (vec_double2){x5max, x1max}; vec_double2 res_v; TEST_START("fmind2"); res_v = fmind2(x0min_v, x0max_v); TEST_CHECK("20060824103001MH", allequal_double2( res_v, x0min_v ), 0); res_v = fmind2(x0max_v, x0min_v); TEST_CHECK("20060824103002MH", allequal_double2( res_v, x0min_v ), 0); res_v = fmind2(x1min_v, x1max_v); TEST_CHECK("20060824103003MH", allequal_double2( res_v, x1min_v ), 0); res_v = fmind2(x1max_v, x1min_v); TEST_CHECK("20060824103004MH", allequal_double2( res_v, x1min_v ), 0); res_v = fmind2(x2min_v, x2max_v); TEST_CHECK("20060824103005MH", allequal_double2( res_v, x2min_v ), 0); res_v = fmind2(x2max_v, x2min_v); TEST_CHECK("20060824103006MH", allequal_double2( res_v, x2min_v ), 0); res_v = fmind2(x3min_v, x3max_v); TEST_CHECK("20060824103007MH", allequal_double2( res_v, x3max_v ), 0); res_v = fmind2(x3max_v, x3min_v); TEST_CHECK("20060824103008MH", allequal_double2( res_v, x3max_v ), 0); res_v = fmind2(x4min_v, x4max_v); TEST_CHECK("20060824103009MH", allequal_double2( res_v, x4min_v ), 0); res_v = fmind2(x4max_v, x4min_v); TEST_CHECK("20060824103010MH", allequal_double2( res_v, x4min_v ), 0); res_v = fmind2(x5min_v, x5max_v); TEST_CHECK("20060824103011MH", allequal_double2( res_v, x5min_v ), 0); res_v = fmind2(x5max_v, x5min_v); TEST_CHECK("20060824103012MH", allequal_double2( res_v, x5min_v ), 0); res_v = fmind2(x6min_v, x6max_v); TEST_CHECK("20060824103013MH", allequal_double2( res_v, x6min_v ), 0); res_v = fmind2(x6max_v, x6min_v); TEST_CHECK("20060824103014MH", allequal_double2( res_v, x6min_v ), 0); res_v = fmind2(x7min_v, x7max_v); TEST_CHECK("20060824103015MH", allequal_double2( res_v, x7min_v ), 0); res_v = fmind2(x7max_v, x7min_v); TEST_CHECK("20060824103016MH", allequal_double2( res_v, x7min_v ), 0); res_v = fmind2(x8min_v, x8max_v); TEST_CHECK("20060824103017MH", allequal_double2( res_v, x8min_v ), 0); res_v = fmind2(x8max_v, x8min_v); TEST_CHECK("20060824103018MH", allequal_double2( res_v, x8min_v ), 0); res_v = fmind2(x9min_v, x9max_v); TEST_CHECK("20060824103019MH", allequal_double2( res_v, x9min_v ), 0); res_v = fmind2(x9max_v, x9min_v); TEST_CHECK("20060824103020MH", allequal_double2( res_v, x9min_v ), 0); res_v = fmind2(x51min_v, x51max_v); TEST_CHECK("20060824103021MH", allequal_double2( res_v, x51min_v ), 0); res_v = fmind2(x51max_v, x51min_v); TEST_CHECK("20060824103022MH", allequal_double2( res_v, x51min_v ), 0); TEST_START("fmaxd2"); res_v = fmaxd2(x0min_v, x0max_v); TEST_CHECK("20060824103101MH", allequal_double2( res_v, x0max_v ), 0); res_v = fmaxd2(x0max_v, x0min_v); TEST_CHECK("20060824103102MH", allequal_double2( res_v, x0max_v ), 0); res_v = fmaxd2(x1min_v, x1max_v); TEST_CHECK("20060824103103MH", allequal_double2( res_v, x1max_v ), 0); res_v = fmaxd2(x1max_v, x1min_v); TEST_CHECK("20060824103104MH", allequal_double2( res_v, x1max_v ), 0); res_v = fmaxd2(x2min_v, x2max_v); TEST_CHECK("20060824103105MH", allequal_double2( res_v, x2max_v ), 0); res_v = fmaxd2(x2max_v, x2min_v); TEST_CHECK("20060824103106MH", allequal_double2( res_v, x2max_v ), 0); res_v = fmaxd2(x3min_v, x3max_v); TEST_CHECK("20060824103107MH", allequal_double2( res_v, x3max_v ), 0); res_v = fmaxd2(x3max_v, x3min_v); TEST_CHECK("20060824103108MH", allequal_double2( res_v, x3max_v ), 0); res_v = fmaxd2(x4min_v, x4max_v); TEST_CHECK("20060824103109MH", allequal_double2( res_v, x4max_v ), 0); res_v = fmaxd2(x4max_v, x4min_v); TEST_CHECK("20060824103110MH", allequal_double2( res_v, x4max_v ), 0); res_v = fmaxd2(x5min_v, x5max_v); TEST_CHECK("20060824103111MH", allequal_double2( res_v, x5max_v ), 0); res_v = fmaxd2(x5max_v, x5min_v); TEST_CHECK("20060824103112MH", allequal_double2( res_v, x5max_v ), 0); res_v = fmaxd2(x6min_v, x6max_v); TEST_CHECK("20060824103113MH", allequal_double2( res_v, x6max_v ), 0); res_v = fmaxd2(x6max_v, x6min_v); TEST_CHECK("20060824103114MH", allequal_double2( res_v, x6max_v ), 0); res_v = fmaxd2(x7min_v, x7max_v); TEST_CHECK("20060824103115MH", allequal_double2( res_v, x7max_v ), 0); res_v = fmaxd2(x7max_v, x7min_v); TEST_CHECK("20060824103116MH", allequal_double2( res_v, x7max_v ), 0); res_v = fmaxd2(x8min_v, x8max_v); TEST_CHECK("20060824103117MH", allequal_double2( res_v, x8max_v ), 0); res_v = fmaxd2(x8max_v, x8min_v); TEST_CHECK("20060824103118MH", allequal_double2( res_v, x8max_v ), 0); res_v = fmaxd2(x9min_v, x9max_v); TEST_CHECK("20060824103119MH", allequal_double2( res_v, x9max_v ), 0); res_v = fmaxd2(x9max_v, x9min_v); TEST_CHECK("20060824103120MH", allequal_double2( res_v, x9max_v ), 0); res_v = fmaxd2(x51min_v, x51max_v); TEST_CHECK("20060824103121MH", allequal_double2( res_v, x51max_v ), 0); res_v = fmaxd2(x51max_v, x51min_v); TEST_CHECK("20060824103122MH", allequal_double2( res_v, x51max_v ), 0); TEST_SET_DONE(); TEST_EXIT(); }