OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [920723-1.c] - Rev 774

Go to most recent revision | Compare with Previous | Blame | View Log

#if defined(STACK_SIZE) && STACK_SIZE < 65536
# define GITT_SIZE 75
#endif
 
#ifndef GITT_SIZE
# define GITT_SIZE 150
#endif
 
typedef struct {
  double x, y;
} vector_t;
double sqrt();
f(int count,vector_t*pos,double r,double *rho)
{
  int i, j, miny, maxy, hy;
  float help, d;
  int gitt[GITT_SIZE][GITT_SIZE];
  int *data = (int *)malloc(count*sizeof(int));
  for (i = 0; i < count; i++)
    rho[i] = 0;
  for (i = 1; i < count; i++)
    for (hy = miny; hy<= maxy; hy++)
      while(j >=0) {
	d = pos[i].y - pos[j].y;
	if ( d <= r) {
	  d = sqrt(d);
	  rho[i] += help;
	}
      }
}
 
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.