URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [pr42326.c] - Rev 686
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-options "-O1 -floop-parallelize-all" } */ double lagrange(const double x[], const double y[], long n, double xval) { long i, j; double yval = 0.; for( i=0; i < n; i++ ) { double l = 1.; for( j=0; j < n; j++ ) if( i != j ) l *= (xval-x[j])/(x[i]-x[j]); yval += y[i]*l; } return yval; }
Go to most recent revision | Compare with Previous | Blame | View Log