gcc/testsuite/gcc.dg/vect/pr66251.c

   1 /* { dg-require-effective-target vect_int } */
   2 /* { dg-require-effective-target vect_double } */
   3 /* { dg-require-effective-target vect_doubleint_cvt } */
   4 /* { dg-require-effective-target vect_intdouble_cvt } */
   5 /* { dg-require-effective-target vect_pack_trunc } */
   6 /* { dg-require-effective-target vect_unpack } */
   7 /* { dg-require-effective-target vect_hw_misalign } */
   8
   9 #include "tree-vect.h"
  10
  11 void __attribute__((noinline,noclone))
  12 test1(_Complex double *a, _Complex int *b, int stride, int n)
  13 {
  14   int i;
  15   for (i = 0; i < n; i++)
  16     {
  17       a[i*stride] = b[i*stride];
  18     }
  19 }
  20
  21 void __attribute__((noinline,noclone))
  22 test2(_Complex int *a, _Complex double *b, int stride, int n)
  23 {
  24   int i;
  25   for (i = 0; i < n; i++)
  26     {
  27       a[i*stride] = b[i*stride];
  28     }
  29 }
  30
  31 _Complex int ia[256];
  32 _Complex double da[256];
  33
  34 extern void abort (void);
  35
  36 int main ()
  37 {
  38   int i;
  39   int stride;
  40
  41   check_vect ();
  42
  43   for (stride = 1; stride < 15; stride++)
  44     {
  45       for (i = 0; i < 256; i++)
  46         {
  47           __real__ ia[i] = (i + stride) % 19;
  48           __imag__ ia[i] = (i + stride) % 23;
  49           __asm__ volatile ("");
  50         }
  51
  52       test1(da, ia, stride, 256/stride);
  53
  54 #pragma GCC novector
  55       for (i = 0; i < 256/stride; i++)
  56         {
  57           if (da[i*stride] != ia[i*stride])
  58             abort ();
  59         }
  60
  61       for (i = 0; i < 256; i++)
  62         {
  63           __real__ da[i] = (i + stride + 1) % 29;
  64           __imag__ da[i] = (i + stride + 1) % 31;
  65           __asm__ volatile ("");
  66         }
  67
  68       test2(ia, da, stride, 256/stride);
  69
  70 #pragma GCC novector
  71       for (i = 0; i < 256/stride; i++)
  72         {
  73           if (da[i*stride] != ia[i*stride])
  74             abort ();
  75         }
  76     }
  77   return 0;
  78 }
  79
  80 /* { dg-final { scan-tree-dump-times "vectorized 1 loops" 2 "vect" } } */