spread_i1(int * rptr,int * sptr,int ncopies,int * extent,int rdelta,int m)1void spread_i1 (int *rptr, int *sptr, int ncopies, int *extent, int rdelta, int m) 2 { 3 int *dest; 4 int n; 5 6 while (m--) 7 { 8 dest = rptr; 9 for (n = 0; n < ncopies; n ++) 10 { 11 *dest = *sptr; 12 dest += rdelta; 13 } 14 if (extent [n]) 15 if (n) 16 rptr ++; 17 } 18 } 19 main()20int main() { return 0; } 21 22 /* { dg-final { cleanup-tree-dump "graphite" } } */ 23