gcc/testsuite/gcc.target/powerpc/vsx-extract-4.c

   1 /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
   2 /* { dg-skip-if "" { powerpc*-*-darwin* } } */
   3 /* { dg-require-effective-target powerpc_p8vector_ok } */
   4 /* { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power8" } } */
   5 /* { dg-options "-O2 -mcpu=power8" } */
   6
   7 /* { dg-final { scan-assembler-times "vspltw"    6 } } */
   8 /* { dg-final { scan-assembler-times "xvcvsxwdp" 4 } } */
   9 /* { dg-final { scan-assembler-times "xvcvuxwdp" 4 } } */
  10 /* { dg-final { scan-assembler-not   "mtvsrd"      } } */
  11 /* { dg-final { scan-assembler-not   "mtvsrwa"     } } */
  12 /* { dg-final { scan-assembler-not   "mtvsrwz"     } } */
  13 /* { dg-final { scan-assembler-not   "mfvsrd"      } } */
  14 /* { dg-final { scan-assembler-not   "mfvsrwz"     } } */
  15
  16 #include <altivec.h>
  17
  18 #ifndef TYPE
  19 #define TYPE double
  20 #endif
  21
  22 TYPE
  23 foo_0s (vector int v)
  24 {
  25   int i = vec_extract (v, 0);
  26   return (TYPE) i;
  27 }
  28
  29 TYPE
  30 foo_1s (vector int v)
  31 {
  32   int i = vec_extract (v, 1);
  33   return (TYPE) i;
  34 }
  35
  36 TYPE
  37 foo_2s (vector int v)
  38 {
  39   int i = vec_extract (v, 2);
  40   return (TYPE) i;
  41 }
  42
  43 TYPE
  44 foo_3s (vector int v)
  45 {
  46   int i = vec_extract (v, 3);
  47   return (TYPE) i;
  48 }
  49
  50 TYPE
  51 foo_0u (vector unsigned int v)
  52 {
  53   unsigned int u = vec_extract (v, 0);
  54   return (TYPE) u;
  55 }
  56
  57 TYPE
  58 foo_1u (vector unsigned int v)
  59 {
  60   unsigned int u = vec_extract (v, 1);
  61   return (TYPE) u;
  62 }
  63
  64 TYPE
  65 foo_2u (vector unsigned int v)
  66 {
  67   unsigned int u = vec_extract (v, 2);
  68   return (TYPE) u;
  69 }
  70
  71 TYPE
  72 foo_3u (vector unsigned int v)
  73 {
  74   unsigned int u = vec_extract (v, 3);
  75   return (TYPE) u;
  76 }