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