2 ! Check that array constructors using non-compile-time
3 ! iterators are handled correctly.
8 SUBROUTINE init_random_seed()
10 INTEGER, DIMENSION(:), ALLOCATABLE
:: seed
12 CALL RANDOM_SEED(size
= n
)
15 CALL SYSTEM_CLOCK(COUNT
=clock
)
17 seed
= clock
+ 37 * (/ (i
- 1, i
= 1, n
) /)
18 CALL RANDOM_SEED(PUT
= seed
)
21 END SUBROUTINE init_random_seed