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 774

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


typedef float real;
typedef real rvec[3];
void calc_dx2dx(real *, real *);
void phi_sr(int nj,rvec x[],int k)
{
  int i,j;
  for(i=0; (i<nj-1); i++)
    for(j=i+1; (j<nj); j++)
      if (k)
        calc_dx2dx(x[i],x[j]);
}

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			`}`

Browse

Tools

Subversion Repositories openrisc

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