[Patch, libfortran] Multi-threaded random_number

[Janne Blomqvist]

On Mon, Aug 1, 2016 at 1:48 PM, Andreas Schwab <schwab@suse.de> wrote:
> On Mo, Aug 01 2016, Janne Blomqvist <blomqvist.janne@gmail.com> wrote:
>
>> PING?
>>
>> Also, a minor bugfix on top of the previous patch:
>>
>> diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c
>> index 9b54a02..21395ea 100644
>> --- a/libgfortran/intrinsics/random.c
>> +++ b/libgfortran/intrinsics/random.c
>> @@ -787,7 +787,7 @@ random_seed_i4 (GFC_INTEGER_4 *size, gfc_array_i4
>> *put, gfc_array_i4 *get)
>>        init_rand_state (true);
>>
>>        /* Copy p & 15 */
>> -      rand_state.p = put->base_addr[SZ * GFC_DESCRIPTOR_STRIDE(put, 0)] & 15;
>> +      rand_state.p = put->base_addr[SZ * GFC_DESCRIPTOR_STRIDE(put, 0)] % 15;
>
> The comment no longer fits.

Indeed, thanks. I've fixed it in my own tree.

-- 
Janne Blomqvist