------- Comment #6 from sebpop at gmail dot com 2010-02-06 19:42 -------
Subject: Re: [4.5 Regression][graphite]
miscompilation related to -floop-block
> Is
>
> IMPLICIT NONE
> INTEGER, PARAMETER :: dp=KIND(0.0D0)
> REAL(KIND=dp) :: res
>
> res=exp_radius_very_extended( 0 , 1 , 0 , 1, &
> (/0.0D0,0.0D0,0.0D0/),&
> (/1.0D0,0.0D0,0.0D0/),&
> (/1.0D0,0.0D0,0.0D0/),&
> 1.0D0,1.0D0,1.0D0,1.0D0)
> if (res.ne.1.0d0) call abort()
>
> CONTAINS
> ...
>
> what you want?
Yes, thanks, I will include this in the testsuite.
Sebastian
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42558
