1  /* { dg-do compile { target { powerpc*-*-* } } } */
       2  /* { dg-skip-if "" { powerpc*-*-darwin* } } */
       3  /* { dg-require-effective-target powerpc_vsx_ok } */
       4  /* { dg-options "-O2 -mdejagnu-cpu=power7" } */
       5  /* { dg-final { scan-assembler-not "stfd" } } */
       6  
       7  /* PR 47862: Verify caller-save spill of vectors in FP regs do not use
       8     legacy FP insns, which spill only half the vector.  */
       9  extern vector double dd[15];
      10  void bar (void);
      11  
      12  vector double foo() {
      13    vector double a,b,c,d,e,f,g,h,i,j,k,l,m,n;
      14  
      15    a=dd[1]; b=dd[2]; c=dd[3]; d=dd[4]; e=dd[5]; f=dd[6]; g=dd[7]; h=dd[8]; i=dd[9];
      16    j=dd[10]; k=dd[11]; l=dd[12]; m=dd[13]; n=dd[14];
      17    bar();
      18    return (a+b+c+d+e+f+g+h+i+j+k+l+m+n);
      19  }
      20