This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran 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]

Re: [gfortran] PATCH -- Fix segfault in RANDOM_SEED.

On Wed, May 26, 2004 at 10:38:33PM +0200, Tobias Schl?ter wrote:
> 
> I don't know what you meant precisely in your e-mail, I'll just walk 
> through my suggestion in a pseudo-debugging manner:
> 
>     CALL  RANDOM_SEED (PUT=SEED1)
> 
> 	-> seed = SEED1 ^ MASK ('seed' denotes the RNG's internal seed)
> 
>     CALL  RANDOM_SEED (GET=SEED2)
> 
> 	-> SEED2 = seed ^ MASK = SEED1 ^ MASK ^ MASK = SEED1   (*)
> 

I did not realize that you where doing the mask on
both GET and PUT.  This should work.

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