------- 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
