1 /* { dg-do compile } */
2 /* { dg-options "-O3" } */
3 
Lag_max_wght(float corr[],long wght_flg)4 void Lag_max_wght(float corr[], long wght_flg)
5 {
6      float t0, max;
7      const float *ww;
8      long i;
9      if ( wght_flg > 0 ) {
10         for ( i = 143; i >= 20; i-- ) {
11            t0 = corr[ - i] * *ww--;
12            if ( t0 >= max )
13              max = t0;
14         }
15      }
16 }
17 
18