1  /* { dg-do run { target int128 } } */
       2  /* { dg-require-effective-target vsx_hw } */
       3  /* { dg-options "-mvsx -O3" } */
       4  
       5  /* This test should run the same on any target that supports vsx
       6     instructions.  Intentionally not specifying cpu in order to test
       7     all code generation paths.  */
       8  
       9  #include <altivec.h>
      10  
      11  extern void abort (void);
      12  
      13  #define CONST0		(3.1415926539)
      14  #define CONST1		(3.1415926539 * 2)
      15  #define CONST2		(3.1415926539 * 3)
      16  #define CONST3		(3.1415926539 * 4)
      17  
      18  
      19  /* Test that indices > length of vector are applied modulo the vector
      20     length.  */
      21  
      22  /* Test for vector residing in register.  */
      23  vector double e0(vector double v, double x)
      24  {
      25    return vec_insert (x, v, 0);
      26  }
      27  
      28  vector double e1(vector double v, double x)
      29  {
      30    return vec_insert (x, v, 1);
      31  }
      32  
      33  vector double e2(vector double v, double x)
      34  {
      35    return vec_insert (x, v, 2);
      36  }
      37  
      38  vector double e3(vector double v, double x)
      39  {
      40    return vec_insert (x, v, 3);
      41  }
      42  
      43  /* Test for vector residing in memory.  */
      44  vector double me0(vector double *vp, double x)
      45  {
      46    return vec_insert (x, *vp, 0);
      47  }
      48  
      49  vector double me1(vector double *vp, double x)
      50  {
      51    return vec_insert (x, *vp, 1);
      52  }
      53  
      54  vector double me2(vector double *vp, double x)
      55  {
      56    return vec_insert (x, *vp, 2);
      57  }
      58  
      59  vector double me3(vector double *vp, double x)
      60  {
      61    return vec_insert (x, *vp, 3);
      62  }
      63  
      64  /* Test the same with variable indices.  */
      65  
      66  /* Test for variable selector and vector residing in register.  */
      67  __attribute__((noinline))
      68  vector double ei(vector double v, int i, double x)
      69  {
      70    return vec_insert (x, v, i);
      71  }
      72  
      73  /* Test for variable selector and vector residing in memory.  */
      74  __attribute__((noinline))
      75  vector double mei(vector double *vp, int i, double x)
      76  {
      77    return vec_insert (x, *vp, i);
      78  }
      79  
      80  int main (int argc, char *argv[]) {
      81    vector double dv;
      82    double d;
      83    dv[0] = CONST0;
      84    dv[1] = CONST1;
      85  
      86    dv = e0 (dv, CONST3);
      87    if (dv [0] != CONST3)
      88      abort ();
      89  
      90    dv = e1 (dv, CONST2);
      91    if (dv [1] != CONST2)
      92      abort ();
      93  
      94    dv = e2 (dv, CONST1);
      95    if (dv [0] != CONST1)
      96      abort ();
      97  
      98    dv = e3 (dv, CONST0);
      99    if (dv [1] != CONST0)
     100      abort ();
     101  
     102    dv = me0 (&dv, CONST2);
     103    if (dv [0] != CONST2)
     104      abort ();
     105  
     106    dv = me1 (&dv, CONST3);
     107    if (dv [1] != CONST3)
     108      abort ();
     109  
     110    dv = me2 (&dv, CONST1);
     111    if (dv [0] != CONST1)
     112      abort ();
     113  
     114    dv = me3 (&dv, CONST0);
     115    if (dv [1] != CONST0)
     116      abort ();
     117  
     118    dv = ei (dv, 0, CONST1);
     119    if (dv [0] != CONST1)
     120      abort ();
     121  
     122    dv = ei (dv, 1, CONST0);
     123    if (dv [1] != CONST0)
     124      abort ();
     125  
     126    dv = ei (dv, 2, CONST3);
     127    if (dv [0] != CONST3)
     128      abort ();
     129  
     130    dv = ei (dv, 3, CONST2);
     131    if (dv [1] != CONST2)
     132      abort ();
     133  
     134    dv = mei (&dv, 0, CONST1);
     135    if (dv [0] != CONST1)
     136      abort ();
     137  
     138    dv = mei (&dv, 1, CONST0);
     139    if (dv [1] != CONST0)
     140      abort ();
     141  
     142    dv = mei (&dv, 2, CONST2);
     143    if (dv [0] != CONST2)
     144      abort ();
     145  
     146    dv = mei (&dv, 3, CONST3);
     147    if (dv [1] != CONST3)
     148      abort ();
     149  
     150    return 0;
     151  }