[gfortran] PATCH -- random.c: fix infinite loop and make sequences consistent

[Tobias Schlüter]

Tobias Schlüter wrote:
> Steven G. Kargl wrote:
> 
>> 2004-06-13  Steven G. Kargl  <kargls@comcast.net>
>>      * random.c (random_r4): Burn a random number
>>        (random_r8): fix infinite loop.
>>
> 
> I committed this under the obviously correct rule. 

Actually, I take the word 'obviously' back. Shouldn't the check compare 
to 1.0 given that our random numbers are meant to be in the interval [0,1(?

- Tobi