1  /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
       2  /* { dg-skip-if "" { powerpc*-*-darwin* } } */
       3  /* { dg-require-effective-target longdouble128 } */
       4  /* { dg-require-effective-target powerpc_p8vector_ok } */
       5  /* { dg-options "-mdejagnu-cpu=power8 -O3" } */
       6  
       7  #if defined(__LONG_DOUBLE_IEEE128__)
       8  /* If long double is IEEE 128-bit, we need to use the __ibm128 type instead of
       9     long double.  We can't use __ibm128 on systems that don't support IEEE
      10     128-bit floating point, because the type is not enabled on those
      11     systems.  */
      12  #define LDOUBLE __ibm128
      13  
      14  #elif defined(__LONG_DOUBLE_IBM128__)
      15  #define LDOUBLE long double
      16  
      17  #else
      18  #error "long double must be either IBM 128-bit or IEEE 128-bit"
      19  #endif
      20  
      21  union u_ld { LDOUBLE ld; double d[2]; };
      22  
      23  LDOUBLE
      24  pack (double a, double aa)
      25  {
      26    union u_ld u;
      27    u.d[0] = a;
      28    u.d[1] = aa;
      29    return u.ld;
      30  }
      31  
      32  double
      33  unpack_0 (LDOUBLE x)
      34  {
      35    union u_ld u;
      36    u.ld = x;
      37    return u.d[0];
      38  }
      39  
      40  double
      41  unpack_1 (LDOUBLE x)
      42  {
      43    union u_ld u;
      44    u.ld = x;
      45    return u.d[1];
      46  }
      47  
      48  /* { dg-final { scan-assembler-not "stfd"   } } */
      49  /* { dg-final { scan-assembler-not "lfd"    } } */
      50  /* { dg-final { scan-assembler-not "lxsdx"  } } */
      51  /* { dg-final { scan-assembler-not "stxsdx" } } */
      52  /* { dg-final { scan-assembler-not "mfvsrd" } } */
      53  /* { dg-final { scan-assembler-not "mtvsrd" } } */
      54  
      55