1  /* PR opt/7130 */
       2  #define TYPE long
       3  
       4  void
       5  scale (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  
      20  int
      21  main (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  }