http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50754
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Last reconfirmed| |2011-10-17
Ever Confirmed|0 |1
--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-10-17
09:38:03 UTC ---
Confirmed on x86_64-apple-darwin10 revision 180062 with '-O2 -ftree-vectorize
-ffast-math -g', slightly reduced (valid?) test
MODULE gauss_colloc
INTEGER, PARAMETER :: dp=8
CONTAINS
FUNCTION calcBox() RESULT(res)
implicit none
integer :: i, imin
REAL(dp) :: r_0, res
REAL(dp), DIMENSION(0:2) :: l, resPos
l = 1.0
resPos = [1.0,2.0,3.0]
r_0=0.0_dp
DO i=0,2
r_0=r_0-0.5*resPos(2-i)*l(i)
END DO
imin =0
IF (r_0<0.0_dp) THEN
imin=1
END IF
res=imin
END FUNCTION
END MODULE
