1/* { dg-do compile { target { powerpc*-*-* } } } */
2/* { dg-skip-if "" { powerpc*-*-darwin* } { "*" } { "" } } */
3/* { dg-require-effective-target powerpc_vsx_ok } */
4/* { dg-options "-O2 -mcpu=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.  */
9extern vector double dd[15];
10
11vector double foo() {
12  vector double a,b,c,d,e,f,g,h,i,j,k,l,m,n;
13
14  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];
15  j=dd[10]; k=dd[11]; l=dd[12]; m=dd[13]; n=dd[14];
16  bar();
17  return (a+b+c+d+e+f+g+h+i+j+k+l+m+n);
18}
19
20