gnu/dist/gcc4/gcc/testsuite/gcc.dg/vmx/3a-05.c

   1 #include "harness.h"
   2
   3 /* Small expression involving non-overloaded specific vector intrinsics.  */
   4
   5 vector float
   6 f(vector float a, vector float b, vector float c)
   7 {
   8   vector float q = vec_expte(a);
   9   vector float r = vec_vsubfp(c, q);
  10   vector float s = vec_re(b);
  11   vector float t = vec_nmsub(s, c, r);
  12   return t;
  13 }
  14
  15 static void test()
  16 {
  17   check(vec_all_eq(f(((vector float){2,3,5,7}),
  18                      ((vector float){11,13,17,19}),
  19                      ((vector float){23,29,31,37})),
  20                    ((vector float){16.9092026, 18.7693329, -2.8233242, -92.9472198})),
  21                    "f");
  22 }