nearest_1.f90 failure on i686-linux

[Dominique Dhumieres]

> At this point, the only recommendation I have is open another
> PR and hope a middle-end person can determine the problem.

This PR29410 with the following example:

program chop
  integer ix, iy
  real x, y
  x = 1.
  y = x
  ix = transfer(x,ix)
  iy = transfer(y,iy)
  print '(2z20.8)', ix, iy
  if (ix /= iy) call abort
end program chop

So the bug is not related to NEAREST() nor subnormal arithmetic
as I suspected, but to the optimization around TRANSFER().

Thanks

Dominique