------- Comment #14 from dominiq at lps dot ens dot fr 2007-09-04 04:58 ------- Did you also have a look to the other problem:
print *, nearest(huge(1.0),1.0), nearest(-huge(1.0),-1.0), nearest(huge(1.0d0) 1 Error: Result of NEAREST overflows its kind at (1) ? -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33225