gcc/testsuite/gcc.dg/vmx/extract-vsx.c

   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 }