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.target/] [mips/] [mips-ps-6.c] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
/* mips-ps-2.c with an extra -ffinite-math-only option. This option changes the way that abs.ps is handled. */ /* { dg-do run } */ /* { dg-options "-O2 -mpaired-single -ffinite-math-only" } */ /* Test MIPS paired-single builtin functions */ #include <stdlib.h> #include <stdio.h> typedef float v2sf __attribute__ ((vector_size(8))); NOMIPS16 int main () { int little_endian; v2sf a, b, c, d; float e,f; int i; union { long long ll; int i[2]; } endianness_test; endianness_test.ll = 1; little_endian = endianness_test.i[0]; /* pll.ps */ a = (v2sf) {1, 2}; b = (v2sf) {3, 4}; c = __builtin_mips_pll_ps (a, b); if (little_endian) // little endian d = (v2sf) {3, 1}; else // big endian d = (v2sf) {2, 4}; if (!__builtin_mips_upper_c_eq_ps (c, d) || !__builtin_mips_lower_c_eq_ps (c, d)) abort (); /* pul.ps */ a = (v2sf) {1, 2}; b = (v2sf) {3, 4}; c = __builtin_mips_pul_ps (a, b); if (little_endian) // little endian d = (v2sf) {3, 2}; else // big endian d = (v2sf) {1, 4}; if (!__builtin_mips_upper_c_eq_ps (c, d) || !__builtin_mips_lower_c_eq_ps (c, d)) abort (); /* plu.ps */ a = (v2sf) {1, 2}; b = (v2sf) {3, 4}; c = __builtin_mips_plu_ps (a, b); if (little_endian) // little endian d = (v2sf) {4, 1}; else // big endian d = (v2sf) {2, 3}; if (!__builtin_mips_upper_c_eq_ps (c, d) || !__builtin_mips_lower_c_eq_ps (c, d)) abort (); /* puu.ps */ a = (v2sf) {1, 2}; b = (v2sf) {3, 4}; c = __builtin_mips_puu_ps (a, b); if (little_endian) // little endian d = (v2sf) {4, 2}; else // big endian d = (v2sf) {1, 3}; if (!__builtin_mips_upper_c_eq_ps (c, d) || !__builtin_mips_lower_c_eq_ps (c, d)) abort (); /* cvt.ps.s */ e = 3.4; f = 4.5; a = __builtin_mips_cvt_ps_s (e, f); if (little_endian) // little endian b = (v2sf) {4.5, 3.4}; else // big endian b = (v2sf) {3.4, 4.5}; if (!__builtin_mips_upper_c_eq_ps (a, b) || !__builtin_mips_lower_c_eq_ps (a, b)) abort (); /* cvt.s.pl */ a = (v2sf) {35.1, 120.2}; e = __builtin_mips_cvt_s_pl (a); if (little_endian) // little endian f = 35.1; else // big endian f = 120.2; if (e != f) abort (); /* cvt.s.pu */ a = (v2sf) {30.0, 100.0}; e = __builtin_mips_cvt_s_pu (a); if (little_endian) // little endian f = 100.0; else // big endian f = 30.0; if (e != f) abort (); /* abs.ps */ a = (v2sf) {-3.4, -5.8}; b = __builtin_mips_abs_ps (a); c = (v2sf) {3.4, 5.8}; if (!__builtin_mips_upper_c_eq_ps (b, c) || !__builtin_mips_lower_c_eq_ps (b, c)) abort (); /* alnv.ps with rs = 4*/ a = (v2sf) {1, 2}; b = (v2sf) {3, 4}; i = 4; c = __builtin_mips_alnv_ps (a, b, i); d = (v2sf) {2, 3}; if (!__builtin_mips_upper_c_eq_ps (c, d) || !__builtin_mips_lower_c_eq_ps (c, d)) abort (); /* alnv.ps with rs = 0 */ a = (v2sf) {5, 6}; b = (v2sf) {7, 8}; i = 0; c = __builtin_mips_alnv_ps (a, b, i); d = (v2sf) {5, 6}; if (!__builtin_mips_upper_c_eq_ps (c, d) || !__builtin_mips_lower_c_eq_ps (c, d)) abort (); printf ("Test Passes\n"); exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log