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 745
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