diff options
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 370a3c8..2bd8bc3 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -6484,9 +6484,8 @@ gfc_check_random_seed (gfc_expr *size, gfc_expr *put, gfc_expr *get) mpz_t put_size, get_size; /* Keep the number of bytes in sync with master_state in - libgfortran/intrinsics/random.c. +1 due to the integer p which is - part of the state too. */ - seed_size = 128 / gfc_default_integer_kind + 1; + libgfortran/intrinsics/random.c. */ + seed_size = 32 / gfc_default_integer_kind; if (size != NULL) { |