2 /* Originator: TANIGUCHI Yasuaki <yasuaki@k8.dion.ne.jp> */
3 /* { dg-do compile { target sparc-*-* } } */
4 /* { dg-options "-O2 -mcpu=ultrasparc -fPIC" } */
6 static const double bp = 1.0, dp_l[] = { 0.0 };
8 double __ieee754_pow(double x, double y)
31 s_l = v*((u-s_h*t_h)-s_h*t_l);
33 r = s2* s2* (1.1+s2*(1.2+s2*(1.3+s2*(1.4+s2*(1.5+s2*1.6)))));
37 t_l = r-((t_h-3.0)-s2);
41 z_l = bp*p_h+p_l*1.0+dp_l[i];
43 t1 = (((bp+z_l)+bp)+t);
44 t2 = z_l-(((t1-t)-bp)-z_h);