This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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


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

Attachment: random.c.diff
Description: Binary data


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]