1  /* { dg-add-options stack_size } */
       2  /* { dg-require-stack-size "75*75*4" } */
       3  
       4  #if defined(STACK_SIZE) && STACK_SIZE < 65536
       5  # define GITT_SIZE 75
       6  #endif
       7  
       8  #ifndef GITT_SIZE
       9  # define GITT_SIZE 150
      10  #endif
      11  
      12  typedef struct {
      13    double x, y;
      14  } vector_t;
      15  double sqrt();
      16  f(int count,vector_t*pos,double r,double *rho)
      17  {
      18    int i, j, miny, maxy, hy;
      19    float help, d;
      20    int gitt[GITT_SIZE][GITT_SIZE];
      21    int *data = (int *)malloc(count*sizeof(int));
      22    for (i = 0; i < count; i++)
      23      rho[i] = 0;
      24    for (i = 1; i < count; i++)
      25      for (hy = miny; hy<= maxy; hy++)
      26        while(j >=0) {
      27  	d = pos[i].y - pos[j].y;
      28  	if ( d <= r) {
      29  	  d = sqrt(d);
      30  	  rho[i] += help;
      31  	}
      32        }
      33  }
      34