1  /* { dg-skip-if "" { powerpc*-*-darwin* } } */
       2  /* { dg-require-effective-target powerpc_vsx_ok } */
       3  /* { dg-options "-maltivec -mabi=altivec -std=gnu99 -mvsx" } */
       4  
       5  #include "harness.h"
       6  
       7  static void test()
       8  {
       9    vector long long vl = {0, 1};
      10    vector double vd = {0.0, 1.0};
      11  
      12    check (vec_extract (vl, 0) == 0, "vec_extract, vl, 0");
      13    check (vec_extract (vd, 1) == 1.0, "vec_extract, vd, 1");
      14    check (vl[0] == 0, "[], vl, 0");
      15    check (vd[1] == 1.0, "[], vd, 0");
      16  }