------- Additional Comments From jblomqvi at cc dot hut dot fi 2005-06-11 20:07 ------- Actually, ANINT also exhibits the same problem:
implicit none real(4) :: r = 42.7, r2 r2 = aint (r,kind=8) print *, 'aint: ', r2 r2 = anint (r, kind=8) print *, 'anint: ', r2 end Prints out: aint: 0.000000 anint: 0.000000 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20786