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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr39636.c] - Blame information for rev 688

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 688 jeremybenn
typedef float real;
2
typedef real rvec[3];
3
void calc_dx2dx(real *, real *);
4
void phi_sr(int nj,rvec x[],int k)
5
{
6
  int i,j;
7
  for(i=0; (i<nj-1); i++)
8
    for(j=i+1; (j<nj); j++)
9
      if (k)
10
        calc_dx2dx(x[i],x[j]);
11
}

powered by: WebSVN 2.1.0

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