[Bug fortran/40070] Some math expressions containing exponents fail on a Windows 64 build

[jonathan dot d dot wetherbee at saic dot com]

------- Comment #10 from jonathan dot d dot wetherbee at saic dot com  2009-05-08 15:51 -------
When I run the fortran code: print *, precision(1.e0), digits(1.e0)
I get: 6,24


*.original file yields:

myfunc (real(kind=4) & a, real(kind=4) & b, real(kind=4) & c, real(kind=4) & d,
real(kind=4) & e, real(kind=4) & res1, real(kind=4) & res2)
{
  {
    real(kind=4) D.1529;

    D.1529 = ((*b / *a));
    *res1 = *a * __builtin_powf (D.1529, (((((*c - *d) -
2.73149993896484375e+2)) / ((*e - *d)))));
  }
  {
    real(kind=4) D.1530;

    D.1530 = ((*b / *a));
    *res2 = __builtin_powf (D.1530, (((((*c - *d) - 2.73149993896484375e+2)) /
((*e - *d)))));
  }
  *res2 = *res2 * *a;
  goto __return_myfunc;
  __return_myfunc:;
}


-- 


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