fix execute/intrinsic_nearest.f90

[Toon Moene]

Paul Brook wrote:

> This breaks on systems that round denormals to zero (mips), hence the current 
> use of TINY. Subnormal numbers are at best a grey area of the fortran 
> standard.

You bet.  Quoting paragraph 1.4 of the upcoming Fortran 2003 Standard 
(which excludes things specified by the standard):

1.4 Exclusions.

...
     (6) The physical properties of the representation of quantities and
         method of rounding, approximating or computing numeric values on
         a particular processor,
...

Note that in Fortranesque parlance, "processor" refers to anything 
converting the program as written into computation, including, but not 
limited to a person-in-a-box scribbling decimal computations on paper.

-- 
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
A maintainer of GNU Fortran 95: http://gcc.gnu.org/fortran/