gcc/testsuite/g++.dg/torture/pr41273.C

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