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