1/* { dg-do run } */ 2/* { dg-options "-O2 -mavx512dq" } */ 3/* { dg-require-effective-target avx512dq } */ 4 5#define AVX512DQ 6#include "avx512f-helper.h" 7 8#define SIZE (AVX512F_LEN / 64) 9#include "avx512f-mask-type.h" 10 11void 12CALC (double *s1, double *s2, double *r) 13{ 14 int i; 15 long long tmp; 16 17 for (i = 0; i < SIZE; i++) 18 { 19 tmp = (*(long long *) &s1[i]) & (*(long long *) &s2[i]); 20 r[i] = *(double *) &tmp; 21 } 22} 23 24void 25TEST (void) 26{ 27 UNION_TYPE (AVX512F_LEN, d) s1, s2, res1, res2, res3; 28 MASK_TYPE mask = MASK_VALUE; 29 double res_ref[SIZE]; 30 int i; 31 32 for (i = 0; i < SIZE; i++) 33 { 34 s1.a[i] = 13. * i; 35 s2.a[i] = 17. * i; 36 res2.a[i] = DEFAULT_VALUE; 37 } 38 39 res1.x = INTRINSIC (_and_pd) (s1.x, s2.x); 40 res2.x = INTRINSIC (_mask_and_pd) (res2.x, mask, s1.x, s2.x); 41 res3.x = INTRINSIC (_maskz_and_pd) (mask, s1.x, s2.x); 42 43 CALC (s1.a, s2.a, res_ref); 44 45 if (UNION_CHECK (AVX512F_LEN, d) (res1, res_ref)) 46 abort (); 47 48 MASK_MERGE (d) (res_ref, mask, SIZE); 49 if (UNION_CHECK (AVX512F_LEN, d) (res2, res_ref)) 50 abort (); 51 52 MASK_ZERO (d) (res_ref, mask, SIZE); 53 if (UNION_CHECK (AVX512F_LEN, d) (res3, res_ref)) 54 abort (); 55} 56