[gfortran] PATCH -- Fix for PR 15619

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

There were 2 problems that led to PR 15619.  First, a global
index was used where a local index should have been used. 
This caused the global index to either retain a wrong value
or reset to new value when RANDOM_SEED(GET=) was called. 
The second problem was the global index needs to be reset
to N on each call to RANDOM_SEED(PUT=).  This then causes
the sequence to be regenerated.

2004-05-26  Steven G. Kargl  <kargls@comcast.net>

        * random.c (random_seed): Use local index.  Reset global index.

-- 
Steve

Attachment: random.c.diff
Description: Text document