[Bug middle-end/18902] Naive (default) complex division algorithm

[Thomas dot Koenig at online dot de]

------- Additional Comments From Thomas dot Koenig at online dot de  2005-01-20 10:45 -------
For gfortran, this is a regression against g77.
See this test program:

$ cat complex-scale.f
      program main
      implicit none
      complex ca,cb,cc
      data ca /(+2.3955909e+19,-1.2258349e-38)/
      data cb /(+0.0000000e+00,-1.7649423e+19)/
      cc = ca/cb
      print *,cc
      print *,-real(ca)/aimag(cb)
      end
$ gfortran complex-scale.f
$ ./a.out
 (  0.000000    ,     +Infinity)
   1.357320
$ g77 complex-scale.f
$ ./a.out
 (0.,1.35731959)
  1.35731959


-- 


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