URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [i386/] [avx2-vpacksswb-2.c] - Rev 700
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-options "-mavx2 -O2" } */ /* { dg-require-effective-target avx2 } */ #include "avx2-check.h" static char short_to_byte (short iVal) { char sVal; if (iVal < -128) sVal = -128; else if (iVal > 127) sVal = 127; else sVal = iVal; return sVal; } void static avx2_test (void) { union256i_w s1, s2; union256i_b u; char e[32]; int i; s1.x = _mm256_set_epi16 (1, 2, 3, 4, 6500, 20, 30, 90, 88, 44, 33, 22, 11, 98, 78, -1000); s2.x = _mm256_set_epi16 (88, 44, 33, 22, 11, 98, 76, -650, 1, 2, 3, 4, 6500, 20, 30, 90); u.x = _mm256_packs_epi16 (s1.x, s2.x); for (i = 0; i < 8; i++) { e[i] = short_to_byte (s1.a[i]); e[i + 8] = short_to_byte (s2.a[i]); e[i + 16] = short_to_byte (s1.a[i + 8]); e[i + 24] = short_to_byte (s2.a[i + 8]); } if (check_union256i_b (u, e)) abort (); }
Go to most recent revision | Compare with Previous | Blame | View Log