1/* PR opt/7130 */
2#define TYPE long
3
4void
5scale (TYPE *alpha, TYPE *x, int n)
6{
7  int i, ix;
8
9  if (*alpha != 1)
10    for (i = 0, ix = 0; i < n; i++, ix += 2)
11      {
12	TYPE tmpr, tmpi;
13	tmpr = *alpha * x[ix];
14	tmpi = *alpha * x[ix + 1];
15	x[ix] = tmpr;
16	x[ix + 1] = tmpi;
17      }
18}
19
20int
21main (void)
22{
23  int i;
24  TYPE x[10];
25  TYPE alpha = 2;
26
27  for (i = 0; i < 10; i++)
28    x[i] = i;
29
30  scale (&alpha, x, 5);
31
32  if (x[9] != 18)
33    abort ();
34
35  return 0;
36}
37