1 /* { 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 H2_LevelPops()8void 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 } 19