1  /* { dg-do run { target { powerpc*-*-* && vmx_hw } } } */
       2  /* { dg-do compile { target { powerpc*-*-* && { ! vmx_hw } } } } */
       3  /* { dg-require-effective-target powerpc_altivec_ok } */
       4  /* { dg-options "-maltivec" } */
       5  /* Test the vec_extract VMX intrinsics.  */
       6  #include <altivec.h>
       7  
       8  extern void abort (void);
       9  
      10  vector int a = {0, 1, 2, 3};
      11  vector short b = {0, 1, 2, 3, 4, 5, 6, 7};
      12  
      13  int f(vector int a, int b)
      14  {
      15    return vec_extract (a, b);
      16  }
      17  
      18  int f0 (vector int a)
      19  {
      20    return vec_extract (a, 0);
      21  }
      22  int f1 (vector int a)
      23  {
      24    return vec_extract (a, 1);
      25  }
      26  int f2 (vector int a)
      27  {
      28    return vec_extract (a, 2);
      29  }
      30  int f3 (vector int a)
      31  {
      32    return vec_extract (a, 3);
      33  }
      34  int f4 (vector int a)
      35  {
      36    return vec_extract (a, 4);
      37  }
      38  
      39  int g(vector short a, int b)
      40  {
      41    return vec_extract (a, b);
      42  }
      43  
      44  int g0 (vector short a)
      45  {
      46    return vec_extract (a, 0);
      47  }
      48  int g1 (vector short a)
      49  {
      50    return vec_extract (a, 1);
      51  }
      52  int g2 (vector short a)
      53  {
      54    return vec_extract (a, 2);
      55  }
      56  int g3 (vector short a)
      57  {
      58    return vec_extract (a, 3);
      59  }
      60  
      61  int g4 (vector short a)
      62  { 
      63    return vec_extract (a, 4);
      64  }
      65  int g5 (vector short a)
      66  { 
      67    return vec_extract (a, 5);
      68  }
      69  int g6 (vector short a)
      70  { 
      71    return vec_extract (a, 6);
      72  }
      73  int g7 (vector short a)
      74  { 
      75    return vec_extract (a, 7);
      76  }
      77  int g8 (vector short a)
      78  { 
      79    return vec_extract (a, 8);
      80  }
      81  int main1(void) __attribute__((noinline));
      82  int main1(void)
      83  { 
      84    int i;
      85    /* Check vec_extract with a non constant element numbering */
      86    for(i=0;i<10;i++)
      87      { 
      88        if (f(a, i) != (i&0x3))
      89          abort ();
      90      }
      91    
      92    /* Check vec_extract with a constant element numbering */
      93    if (f0(a) != 0)
      94      abort ();
      95    if (f1(a) != 1)
      96      abort ();
      97    if (f2(a) != 2)
      98      abort ();
      99    if (f3(a) != 3)
     100      abort ();
     101    /* Check that vec_extract works with a constant element higher than
     102       the number of elements.  */
     103    if (f4(a) != 0)
     104      abort ();
     105  
     106    /* Check vec_extract with a non constant element numbering */
     107    for(i=0;i<10;i++)
     108      {
     109        if (g(b, i) != (i&0x7))
     110          abort ();
     111      }
     112    
     113    /* Check vec_extract with a constant element numbering */
     114    if (g0(b) != 0)
     115      abort ();
     116    if (g1(b) != 1)
     117      abort ();
     118    if (g2(b) != 2)
     119      abort ();
     120    if (g3(b) != 3)
     121      abort ();
     122    if (g4(b) != 4)
     123      abort ();
     124    if (g5(b) != 5)
     125      abort ();
     126    if (g6(b) != 6)
     127      abort ();
     128    if (g7(b) != 7)
     129      abort ();
     130    /* Check that vec_extract works with a constant element higher than
     131       the number of elements.  */
     132    if (g8(b) != 0)
     133      abort ();
     134    
     135    return 0;
     136  }
     137  
     138  int main(void)
     139  { 
     140    return main1 ();
     141  }