/* From gcc.c-torture/execute/loop-13.c  */
/* { dg-do compile } */
/* { dg-additional-options "-march=cascadelake" { target x86_64-*-* i?86-*-* } } */
#define TYPE long

void
scale (TYPE *alpha, TYPE *x, int n)
{
  int i, ix;

  if (*alpha != 1)
    for (i = 0, ix = 0; i < n; i++, ix += 2)
      {
	TYPE tmpr, tmpi;
	tmpr = *alpha * x[ix];
	tmpi = *alpha * x[ix + 1];
	x[ix] = tmpr;
	x[ix + 1] = tmpi;
      }
}