This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Error in subnormal computation

The following code

real x
x = -3.0*(nearest(tiny(x),1.0)-tiny(x))
print *, x
end

gives

   0.000000    

instead of something like (xlf)

 -0.4203895393E-44

TIA

Dominique
Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]