URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [g++.dg/] [torture/] [pr41273.C] - Rev 320
Go to most recent revision | Compare with Previous | Blame | 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;
}
}
Go to most recent revision | Compare with Previous | Blame | View Log