1  /* { dg-do compile { target lp64 } } */
       2  /* { dg-require-effective-target powerpc_p9vector_ok } */
       3  /* { dg-require-effective-target float128 } */
       4  /* { dg-options "-mpower9-vector -O2 -ffast-math" } */
       5  
       6  extern _Float128 sqrtf128 (_Float128);
       7  
       8  /* Check sqrt optimizations that are done for double are also done for
       9     _Float128.  */
      10  
      11  _Float128
      12  sqrt_x_times_sqrt_x (_Float128 x)
      13  {
      14    return sqrtf128 (x) * sqrtf128 (x);
      15  }
      16  
      17  /* { dg-final { scan-assembler-not {\mxssqrtqp\M} } } */
      18  /* { dg-final { scan-assembler-not {\mbl\M}       } } */