1  /* { dg-do compile } */
       2  /* { dg-options "-O2" } */
       3  
       4  double transport_sumexp(int numexp)
       5  {
       6    int k,j;
       7    double xk1 = 1.0;
       8    for(k=1; k<=numexp;k++)
       9      for(j=1;j<=3;j++)
      10        xk1 += 1.0;
      11    return xk1;
      12  }