[Bug tree-optimization/42558] [4.5 Regression][graphite] miscompilation related to -floop-block

[dominiq at lps dot ens dot fr]

------- Comment #5 from dominiq at lps dot ens dot fr  2010-02-06 18:08 -------
> Could somebody more fluent in Fortran rewrite the testcase under the same
> format as the testcase of PR42637 with a condition like this: ...

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?

Note that the test passes at revision 156540 on x86_64-apple-darwin10, so I am
not sure that it is a duplicate of 42637.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42558