6 integer, allocatable
, dimension(:) :: seed
, check
7 call test_random_seed(size
)
8 allocate(seed(size
),check(size
))
9 call test_random_seed(put
=seed
)
10 call test_random_seed(get
=check
)
11 if (any (seed
/= check
)) call abort
13 subroutine test_random_seed(size
, put
, get
)
14 integer, optional
:: size
15 integer, dimension(:), optional
:: put
16 integer, dimension(:), optional
:: get
17 call random_seed(size
, put
, get
)
18 end subroutine test_random_seed