gcc/testsuite/gfortran.dg/reassoc_11.f

   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