1  /* { dg-do compile { target lp64 } } */
       2  /* { dg-require-effective-target powerpc_p9vector_ok } */
       3  /* { dg-options "-mdejagnu-cpu=power9 -O2" } */
       4  
       5  #include <altivec.h>
       6  
       7  void extract_int_0 (int *p, vector int a) { *p = vec_extract (a, 0); }
       8  void extract_int_3 (int *p, vector int a) { *p = vec_extract (a, 3); }
       9  
      10  void extract_short_0 (short *p, vector short a) { *p = vec_extract (a, 0); }
      11  void extract_short_3 (short *p, vector short a) { *p = vec_extract (a, 7); }
      12  
      13  void extract_schar_0 (signed char *p, vector signed char a) { *p = vec_extract (a, 0); }
      14  void extract_schar_3 (signed char *p, vector signed char a) { *p = vec_extract (a, 15); }
      15  
      16  /* { dg-final { scan-assembler     "vextractub"      } } */
      17  /* { dg-final { scan-assembler     "vextractuh"      } } */
      18  /* { dg-final { scan-assembler     "xxextractuw"     } } */
      19  /* { dg-final { scan-assembler     "stxsibx"         } } */
      20  /* { dg-final { scan-assembler     "stxsihx"         } } */
      21  /* { dg-final { scan-assembler     "stfiwx\|stxsiwx" } } */
      22  /* { dg-final { scan-assembler-not "mfvsrd"          } } */
      23  /* { dg-final { scan-assembler-not "stxvd2x"         } } */
      24  /* { dg-final { scan-assembler-not "stxv"            } } */
      25  /* { dg-final { scan-assembler-not "lwa"             } } */
      26  /* { dg-final { scan-assembler-not "stw"             } } */