gcc/testsuite/gcc.dg/vect/pr56933.c

   1 /* { dg-do run } */
   2 /* { dg-require-effective-target vect_double } */
   3
   4 #include "tree-vect.h"
   5
   6 extern void abort (void);
   7 void __attribute__((noinline,noclone))
   8 foo (double *b, double *d, double *f)
   9 {
  10   int i;
  11   for (i = 0; i < 1024; i++)
  12     {
  13       d[2*i] = 2. * d[2*i];
  14       d[2*i+1] = 4. * d[2*i+1];
  15       b[i] = d[2*i] - 1.;
  16       f[i] = d[2*i+1] + 2.;
  17     }
  18 }
  19 int main()
  20 {
  21   double b[1024], d[2*1024], f[1024];
  22   int i;
  23
  24   check_vect ();
  25
  26   for (i = 0; i < 2*1024; i++)
  27     d[i] = 1.;
  28   foo (b, d, f);
  29   for (i = 0; i < 1024; i+= 2)
  30     {
  31       if (d[2*i] != 2.)
  32         abort ();
  33       if (d[2*i+1] != 4.)
  34         abort ();
  35     }
  36   for (i = 0; i < 1024; i++)
  37     {
  38       if (b[i] != 1.)
  39         abort ();
  40       if (f[i] != 6.)
  41         abort ();
  42     }
  43   return 0;
  44 }
  45
  46 /* { dg-final { cleanup-tree-dump "vect" } } */