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()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 }
19