1/* { dg-do run } */ 2/* { dg-options "-O2 -mavx512f" } */ 3/* { dg-require-effective-target avx512f } */ 4 5#include <string.h> 6#include "avx512f-check.h" 7 8static void 9compute_psllvq512 (long long int *s1, long long int *s2, long long int *r) 10{ 11 int i; 12 long long int count; 13 14 for (i = 0; i < 8; ++i) 15 { 16 count = s2[i]; 17 r[i] = s1[i] << count; 18 } 19} 20 21void static 22avx512f_test (void) 23{ 24 union512i_q s1, s2, res; 25 long long int res_ref[8]; 26 int i, j, sign = 1; 27 int fail = 0; 28 29 for (i = 0; i < 10; i++) 30 { 31 for (j = 0; j < 8; j++) 32 { 33 s1.a[j] = j * i * sign; 34 s2.a[j] = (j + i) >> 2; 35 sign = -sign; 36 } 37 38 res.x = _mm512_sllv_epi64 (s1.x, s2.x); 39 40 compute_psllvq512 (s1.a, s2.a, res_ref); 41 42 fail += check_union512i_q (res, res_ref); 43 } 44 45 if (fail != 0) 46 abort (); 47}