gcc/testsuite/gcc.dg/vmx/extract-be-order.c

   1 /* { dg-options "-maltivec=be -mabi=altivec -std=gnu99 -mno-vsx" } */
   2
   3 #include "harness.h"
   4
   5 static void test()
   6 {
   7   vector unsigned char va = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};
   8   vector signed char vb = {-8,-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7};
   9   vector unsigned short vc = {0,1,2,3,4,5,6,7};
  10   vector signed short vd = {-4,-3,-2,-1,0,1,2,3};
  11   vector unsigned int ve = {0,1,2,3};
  12   vector signed int vf = {-2,-1,0,1};
  13   vector float vg = {-2.0f,-1.0f,0.0f,1.0f};
  14
  15 #if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
  16   check (vec_extract (va, 5) == 10, "vec_extract (va, 5)");
  17   check (vec_extract (vb, 0) == 7, "vec_extract (vb, 0)");
  18   check (vec_extract (vc, 7) == 0, "vec_extract (vc, 7)");
  19   check (vec_extract (vd, 3) == 0, "vec_extract (vd, 3)");
  20   check (vec_extract (ve, 2) == 1, "vec_extract (ve, 2)");
  21   check (vec_extract (vf, 1) == 0, "vec_extract (vf, 1)");
  22   check (vec_extract (vg, 0) == 1.0f, "vec_extract (vg, 0)");
  23 #else
  24   check (vec_extract (va, 5) == 5, "vec_extract (va, 5)");
  25   check (vec_extract (vb, 0) == -8, "vec_extract (vb, 0)");
  26   check (vec_extract (vc, 7) == 7, "vec_extract (vc, 7)");
  27   check (vec_extract (vd, 3) == -1, "vec_extract (vd, 3)");
  28   check (vec_extract (ve, 2) == 2, "vec_extract (ve, 2)");
  29   check (vec_extract (vf, 1) == -1, "vec_extract (vf, 1)");
  30   check (vec_extract (vg, 0) == -2.0f, "vec_extract (vg, 0)");
  31 #endif
  32 }
  33