gcc/testsuite/gcc.target/s390/pr57960.c

   1 /* PR rtl-optimization/57960  */
   2
   3 /* { dg-do compile } */
   4 /* { dg-options "-march=z10 -mzarch  -O1" } */
   5
   6 typedef union
   7 {
   8   long double value;
   9   struct
  10   {
  11     unsigned int w0, w1, w2, w3;
  12   }
  13     parts32;
  14 }
  15   ieee854_long_double_shape_type;
  16 static const long double one = 1.0L;
  17 long double
  18 __ieee754_acosl (long double x)
  19 {
  20   long double z, w;
  21   int ix;
  22   ieee854_long_double_shape_type u;
  23
  24   z = (one - u.value) * 0.5;
  25   u.parts32.w2 = 0;
  26   u.parts32.w3 = 0;
  27   w = z - u.value * u.value;
  28   return 2.0 * w;
  29
  30 }