1 /* { dg-do compile } */
2 /* { dg-options "-O2" } */
3 
transport_sumexp(int numexp)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 }
13