PR libfortran/97581 - clean up size calculation of random generator state
authorHarald Anlauf <anlauf@gmx.de>
Fri, 30 Oct 2020 19:49:32 +0000 (20:49 +0100)
committerHarald Anlauf <anlauf@gmx.de>
Fri, 30 Oct 2020 19:49:32 +0000 (20:49 +0100)
commit667db6dedd80487663c29b21efa942f661b569a8
treea00ecf106df97f1dd30e55ff7e7817b0c5819130
parentd10f3e900b0377b4760a090b0f90371bcef01686
PR libfortran/97581 - clean up size calculation of random generator state

The random number generator internal state may be saved to/restored from
an array of integers.  Clean up calculation of needed number of elements
to avoid redefiniton of auxiliary macro SZ.

libgfortran/ChangeLog:

* intrinsics/random.c (SZ_IN_INT_4): Define size of state in int32_t.
(SZ_IN_INT_8): Define size of state in int64_t.
(SZ): Remove.
(random_seed_i4): Use size SZ_IN_INT_4 instead of SZ.
(random_seed_i8): Use size SZ_IN_INT_8 instead of SZ.
libgfortran/intrinsics/random.c