URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [vmx/] [3a-05.c] - Rev 305
Go to most recent revision | Compare with Previous | Blame | View Log
#include "harness.h" /* Small expression involving non-overloaded specific vector intrinsics. */ vector float f(vector float a, vector float b, vector float c) { vector float q = vec_expte(a); vector float r = vec_vsubfp(c, q); vector float s = vec_re(b); vector float t = vec_nmsub(s, c, r); return t; } static void test() { check(vec_all_gt(f(((vector float){2,3,5,7}), ((vector float){11,13,17,19}), ((vector float){23,29,31,37})), ((vector float){16.90, 18.76, -2.83, -92.95})) && vec_all_lt(f(((vector float){2,3,5,7}), ((vector float){11,13,17,19}), ((vector float){23,29,31,37})), ((vector float){16.91, 18.77, -2.82, -92.94})), "f"); }
Go to most recent revision | Compare with Previous | Blame | View Log