gcc/testsuite/gcc.target/aarch64/vstN_lane_1.c

   1 /* { dg-do run } */
   2 /* { dg-options "-O3 -fno-inline" } */
   3
   4 #include <arm_neon.h>
   5
   6 extern void abort (void);
   7
   8 #define VARIANTS(VARIANT, STRUCT)       \
   9 VARIANT (uint8, , 8, _u8, 6, STRUCT)    \
  10 VARIANT (uint16, , 4, _u16, 3, STRUCT)  \
  11 VARIANT (uint32, , 2, _u32, 1, STRUCT)  \
  12 VARIANT (uint64, , 1, _u64, 0, STRUCT)  \
  13 VARIANT (int8, , 8, _s8, 5, STRUCT)     \
  14 VARIANT (int16, , 4, _s16, 2, STRUCT)   \
  15 VARIANT (int32, , 2, _s32, 0, STRUCT)   \
  16 VARIANT (int64, , 1, _s64, 0, STRUCT)   \
  17 VARIANT (poly8, , 8, _p8, 7, STRUCT)    \
  18 VARIANT (poly16, , 4, _p16, 1, STRUCT)  \
  19 VARIANT (float32, , 2, _f32, 1, STRUCT) \
  20 VARIANT (float64, , 1, _f64, 0, STRUCT) \
  21 VARIANT (uint8, q, 16, _u8, 14, STRUCT) \
  22 VARIANT (uint16, q, 8, _u16, 4, STRUCT) \
  23 VARIANT (uint32, q, 4, _u32, 3, STRUCT) \
  24 VARIANT (uint64, q, 2, _u64, 0, STRUCT) \
  25 VARIANT (int8, q, 16, _s8, 13, STRUCT)  \
  26 VARIANT (int16, q, 8, _s16, 6, STRUCT)  \
  27 VARIANT (int32, q, 4, _s32, 2, STRUCT)  \
  28 VARIANT (int64, q, 2, _s64, 1, STRUCT)  \
  29 VARIANT (poly8, q, 16, _p8, 12, STRUCT) \
  30 VARIANT (poly16, q, 8, _p16, 5, STRUCT) \
  31 VARIANT (float32, q, 4, _f32, 1, STRUCT)\
  32 VARIANT (float64, q, 2, _f64, 0, STRUCT)
  33
  34 #define TESTMETH(BASE, Q, ELTS, SUFFIX, LANE, STRUCT)                   \
  35 int                                                                     \
  36 test_vst##STRUCT##Q##_lane##SUFFIX (const BASE##_t *data)               \
  37 {                                                                       \
  38   BASE##x##ELTS##x##STRUCT##_t vectors;                                 \
  39   for (int i = 0; i < STRUCT; i++, data += ELTS)                        \
  40     vectors.val[i] = vld1##Q##SUFFIX (data);                            \
  41   BASE##_t temp[STRUCT];                                                \
  42   vst##STRUCT##Q##_lane##SUFFIX (temp, vectors, LANE);                  \
  43   for (int i = 0; i < STRUCT; i++)                                      \
  44     {                                                                   \
  45       if (temp[i] != vget##Q##_lane##SUFFIX (vectors.val[i], LANE))     \
  46         return 1;                                                       \
  47     }                                                                   \
  48   return 0;                                                             \
  49 }
  50
  51 /* Tests of vst2_lane and vst2q_lane.  */
  52 VARIANTS (TESTMETH, 2)
  53 /* Tests of vst3_lane and vst3q_lane.  */
  54 VARIANTS (TESTMETH, 3)
  55 /* Tests of vst4_lane and vst4q_lane.  */
  56 VARIANTS (TESTMETH, 4)
  57
  58 #define CHECK(BASE, Q, ELTS, SUFFIX, LANE, STRUCT)                      \
  59   if (test_vst##STRUCT##Q##_lane##SUFFIX ((const BASE##_t *)orig_data)) \
  60     abort ();
  61
  62 int
  63 main (int argc, char **argv)
  64 {
  65   /* Original data for all vector formats.  */
  66   uint64_t orig_data[8] = {0x1234567890abcdefULL, 0x13579bdf02468aceULL,
  67                            0x012389ab4567cdefULL, 0xfeeddadacafe0431ULL,
  68                            0x1032547698badcfeULL, 0xbadbadbadbad0badULL,
  69                            0x0102030405060708ULL, 0x0f0e0d0c0b0a0908ULL};
  70
  71   VARIANTS (CHECK, 2);
  72   VARIANTS (CHECK, 3);
  73   VARIANTS (CHECK, 4);
  74   return 0;
  75 }