/* { dg-do compile { target { powerpc*-*-* } } } */
/* { dg-skip-if "" { powerpc*-*-darwin* } { "*" } { "" } } */
/* { dg-require-effective-target powerpc_p9vector_ok } */
/* { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power9" } } */
/* { dg-options "-mcpu=power9 -O3 -mupper-regs-df -mupper-regs-sf -funroll-loops" } */

/* derived from 20021120-1.c, compiled for -mcpu=power9.  */

extern void abort (void);
extern void exit (int);

volatile double gd[32];
volatile float gf[32];

void
foo (int n)
{
  double d00, d10, d20, d30, d01, d11, d21, d31, d02, d12, d22, d32, d03, d13,
    d23, d33, d04, d14, d24, d34, d05, d15, d25, d35, d06, d16, d26, d36, d07,
    d17, d27, d37;
  float f00, f10, f20, f30, f01, f11, f21, f31, f02, f12, f22, f32, f03, f13,
    f23, f33, f04, f14, f24, f34, f05, f15, f25, f35, f06, f16, f26, f36, f07,
    f17, f27, f37;
  volatile double *pd;
  volatile float *pf;
  int i;

  pd = gd;
  d00 = *(pd++), d10 = *(pd++), d20 = *(pd++), d30 = *(pd++), d01 =
    *(pd++), d11 = *(pd++), d21 = *(pd++), d31 = *(pd++), d02 = *(pd++), d12 =
    *(pd++), d22 = *(pd++), d32 = *(pd++), d03 = *(pd++), d13 = *(pd++), d23 =
    *(pd++), d33 = *(pd++), d04 = *(pd++), d14 = *(pd++), d24 = *(pd++), d34 =
    *(pd++), d05 = *(pd++), d15 = *(pd++), d25 = *(pd++), d35 = *(pd++), d06 =
    *(pd++), d16 = *(pd++), d26 = *(pd++), d36 = *(pd++), d07 = *(pd++), d17 =
    *(pd++), d27 = *(pd++), d37 = *(pd++);
  for (i = 0; i < n; i++)
    {
      pf = gf;
      f00 = *(pf++), f10 = *(pf++), f20 = *(pf++), f30 = *(pf++), f01 =
	*(pf++), f11 = *(pf++), f21 = *(pf++), f31 = *(pf++), f02 =
	*(pf++), f12 = *(pf++), f22 = *(pf++), f32 = *(pf++), f03 =
	*(pf++), f13 = *(pf++), f23 = *(pf++), f33 = *(pf++), f04 =
	*(pf++), f14 = *(pf++), f24 = *(pf++), f34 = *(pf++), f05 =
	*(pf++), f15 = *(pf++), f25 = *(pf++), f35 = *(pf++), f06 =
	*(pf++), f16 = *(pf++), f26 = *(pf++), f36 = *(pf++), f07 =
	*(pf++), f17 = *(pf++), f27 = *(pf++), f37 = *(pf++);
      pd = gd;
      d00 += *(pd++), d10 += *(pd++), d20 += *(pd++), d30 += *(pd++), d01 +=
	*(pd++), d11 += *(pd++), d21 += *(pd++), d31 += *(pd++), d02 +=
	*(pd++), d12 += *(pd++), d22 += *(pd++), d32 += *(pd++), d03 +=
	*(pd++), d13 += *(pd++), d23 += *(pd++), d33 += *(pd++), d04 +=
	*(pd++), d14 += *(pd++), d24 += *(pd++), d34 += *(pd++), d05 +=
	*(pd++), d15 += *(pd++), d25 += *(pd++), d35 += *(pd++), d06 +=
	*(pd++), d16 += *(pd++), d26 += *(pd++), d36 += *(pd++), d07 +=
	*(pd++), d17 += *(pd++), d27 += *(pd++), d37 += *(pd++);
      pd = gd;
      d00 += *(pd++), d10 += *(pd++), d20 += *(pd++), d30 += *(pd++), d01 +=
	*(pd++), d11 += *(pd++), d21 += *(pd++), d31 += *(pd++), d02 +=
	*(pd++), d12 += *(pd++), d22 += *(pd++), d32 += *(pd++), d03 +=
	*(pd++), d13 += *(pd++), d23 += *(pd++), d33 += *(pd++), d04 +=
	*(pd++), d14 += *(pd++), d24 += *(pd++), d34 += *(pd++), d05 +=
	*(pd++), d15 += *(pd++), d25 += *(pd++), d35 += *(pd++), d06 +=
	*(pd++), d16 += *(pd++), d26 += *(pd++), d36 += *(pd++), d07 +=
	*(pd++), d17 += *(pd++), d27 += *(pd++), d37 += *(pd++);
      pd = gd;
      d00 += *(pd++), d10 += *(pd++), d20 += *(pd++), d30 += *(pd++), d01 +=
	*(pd++), d11 += *(pd++), d21 += *(pd++), d31 += *(pd++), d02 +=
	*(pd++), d12 += *(pd++), d22 += *(pd++), d32 += *(pd++), d03 +=
	*(pd++), d13 += *(pd++), d23 += *(pd++), d33 += *(pd++), d04 +=
	*(pd++), d14 += *(pd++), d24 += *(pd++), d34 += *(pd++), d05 +=
	*(pd++), d15 += *(pd++), d25 += *(pd++), d35 += *(pd++), d06 +=
	*(pd++), d16 += *(pd++), d26 += *(pd++), d36 += *(pd++), d07 +=
	*(pd++), d17 += *(pd++), d27 += *(pd++), d37 += *(pd++);
      pf = gf;
      *(pf++) = f00, *(pf++) = f10, *(pf++) = f20, *(pf++) = f30, *(pf++) =
	f01, *(pf++) = f11, *(pf++) = f21, *(pf++) = f31, *(pf++) =
	f02, *(pf++) = f12, *(pf++) = f22, *(pf++) = f32, *(pf++) =
	f03, *(pf++) = f13, *(pf++) = f23, *(pf++) = f33, *(pf++) =
	f04, *(pf++) = f14, *(pf++) = f24, *(pf++) = f34, *(pf++) =
	f05, *(pf++) = f15, *(pf++) = f25, *(pf++) = f35, *(pf++) =
	f06, *(pf++) = f16, *(pf++) = f26, *(pf++) = f36, *(pf++) =
	f07, *(pf++) = f17, *(pf++) = f27, *(pf++) = f37;
    }
  pd = gd;
  *(pd++) = d00, *(pd++) = d10, *(pd++) = d20, *(pd++) = d30, *(pd++) =
    d01, *(pd++) = d11, *(pd++) = d21, *(pd++) = d31, *(pd++) = d02, *(pd++) =
    d12, *(pd++) = d22, *(pd++) = d32, *(pd++) = d03, *(pd++) = d13, *(pd++) =
    d23, *(pd++) = d33, *(pd++) = d04, *(pd++) = d14, *(pd++) = d24, *(pd++) =
    d34, *(pd++) = d05, *(pd++) = d15, *(pd++) = d25, *(pd++) = d35, *(pd++) =
    d06, *(pd++) = d16, *(pd++) = d26, *(pd++) = d36, *(pd++) = d07, *(pd++) =
    d17, *(pd++) = d27, *(pd++) = d37;
}

int
main ()
{
  int i;

  for (i = 0; i < 32; i++)
    gd[i] = i, gf[i] = i;
  foo (1);
  for (i = 0; i < 32; i++)
    if (gd[i] != i * 4 || gf[i] != i)
      abort ();
  exit (0);
}

/* { dg-final { scan-assembler-not "stxsd \[0-9\]+,\[0-9\]+,\[0-9\]"  } } */
