1! { dg-do compile }
2! { dg-options "-O3 -ffast-math" }
3
4! This tests only for compile-time failure, which formerly occurred
5! when a __builtin_powi was introduced by reassociation in a bad place.
6
7      SUBROUTINE GRDURBAN(URBWSTR, ZIURB, GRIDHT)
8
9      IMPLICIT NONE
10      INTEGER :: I
11      REAL :: SW2, URBWSTR, ZIURB, GRIDHT(87)
12
13      SAVE
14
15      SW2 = 1.6*(GRIDHT(I)/ZIURB)**0.667*URBWSTR**2
16
17      END
18