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