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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [torture/] [pr41273.C] - Blame information for rev 774

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


/* { dg-do compile } */
/* { dg-options "-g" } */
 
long *H2_ipX_ener_sort;
double H2_old_populations[2];
double H2_total;
 
void H2_LevelPops()
{
  double sum_pop = 0.;
  long nEner = 0;
  while( nEner < 3 && sum_pop/H2_total < 0.99999 )
    {
      long ip = H2_ipX_ener_sort[nEner];
      sum_pop += H2_old_populations[ip];
      ++nEner;
    }
}

Line No.	Rev	Author	Line
1	693	jeremybenn	`/* { dg-do compile } */`
2			`/* { dg-options "-g" } */`
3
4			`long *H2_ipX_ener_sort;`
5			`double H2_old_populations[2];`
6			`double H2_total;`
7
8			`void H2_LevelPops()`
9			`{`
10			`double sum_pop = 0.;`
11			`long nEner = 0;`
12			`while( nEner < 3 && sum_pop/H2_total < 0.99999 )`
13			`{`
14			`long ip = H2_ipX_ener_sort[nEner];`
15			`sum_pop += H2_old_populations[ip];`
16			`++nEner;`
17			`}`
18			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [torture/] [pr41273.C] - Blame information for rev 774