INT(x) == 1 if x < 1?

[Thomas Koenig]

On Sun, Oct 29, 2006 at 11:29:10PM +0100, Daniel Franke wrote:

> Therefore, on REAL :: x; 
> RANDOM_NUMBER(x), INT(x) must(?) equal zero. As I learned the hard way, this 
> is not always true?!

For gfortran, I would expect it to be (at least for the current
RNG).  If you find a counter-example, it would be great if you
could post the results of call random_seed(seed=x).

	Thomas