[Bug middle-end/42185] [4.5 Regression] expected gimple_assign(error_mark), have gimple_call() in gimple_assign_rhs_code, at gimple.h:1820

[jv244 at cam dot ac dot uk]

------- Comment #1 from jv244 at cam dot ac dot uk  2009-11-26 19:11 -------
pretty similar in this case

> gfortran  -c -fgraphite-identity -g -O3 -ffast-math bug.f90  bug.f90
bug.f90: In function ‘psi’:
bug.f90:4:0: internal compiler error: gimple check: expected
gimple_assign(error_mark), have gimple_nop() in gimple_assign_rhs_code, at
gimple.h:1820
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
bug.f90: In function ‘psi’:
bug.f90:4:0: internal compiler error: gimple check: expected
gimple_assign(error_mark), have gimple_nop() in gimple_assign_rhs_code, at
gimple.h:1820
Please submit a full bug report,
with preprocessed source if appropriate.

> cat bug.f90
MODULE beta_gamma_psi
 INTEGER, PARAMETER :: dp=KIND(0.0D0)
CONTAINS
FUNCTION psi(xx) RESULT(fn_val)
    REAL(dp) :: aug, den, dx0 = 1.461632144968362341262659542325721325e0_dp, &
      p1(7) = (/ .895385022981970e-02_dp, .477762828042627e+01_dp,  &
      .142441585084029e+03_dp, .118645200713425e+04_dp,  &
      .363351846806499e+04_dp,.413810161269013e+04_dp,  &
      -.648157123766197e+00_dp /), piov4 = .785398163397448e0_dp, q1(6) = (/ &
      .448452573429826e+02_dp, .520752771467162e+03_dp,  &
      .221000799247830e+04_dp, .364127349079381e+04_dp,  &
      .546117738103215e+02_dp,  .777788548522962e+01_dp /)
DO i = 1, 5
  den = (den + q1(i)) * x
  upper = (upper + p1(i+1)) * x
END DO
aug = upper / (den + q2(4)) - 0.5e0_dp / x + aug
350 fn_val = aug + LOG(x)
END FUNCTION psi
END MODULE beta_gamma_psi


-- 


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