modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/execute/loop-13.c (about) 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 }