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

[Steven G. Kargl]

Gang,

The attached patch fixes an infinite loop in the random_number
routine for REAL*8 arrays and it burns a random number in 
the REAL*4 routine to keep the REAL*4 and REAL*8 sequence consistent.


2004-06-13  Steven G. Kargl  <kargls@comcast.net>
     * random.c (random_r4): Burn a random number
       (random_r8): fix infinite loop.

-- 
Steve
-------------- next part --------------
A non-text attachment was scrubbed...
Name: random.c.diff
Type: application/octet-stream
Size: 771 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20040613/2eab68fb/attachment.obj>