2 ! { dg-options "-fdefault-integer-8" }
7 integer, allocatable
, dimension(:) :: seed
, check
8 call test_random_seed(size
)
9 allocate(seed(size
),check(size
))
10 seed(:) = huge(seed
) / 17
11 call test_random_seed(put
=seed
)
12 call test_random_seed(get
=check
)
13 ! In the current xorshift1024* implementation the last seed value is
15 seed(size
) = check(size
)
16 if (any (seed
/= check
)) call abort
18 subroutine test_random_seed(size
, put
, get
)
19 integer, optional
:: size
20 integer, dimension(:), optional
:: put
21 integer, dimension(:), optional
:: get
22 call random_seed(size
, put
, get
)
23 end subroutine test_random_seed