8 call test_random_seed(size,seed)
10 subroutine test_random_seed(size, put, get)
11 integer, optional :: size
12 integer, dimension(:), optional :: put
13 integer, dimension(:), optional :: get
14 call random_seed(size, put, get)
15 end subroutine test_random_seed
17 ! { dg-output "Fortran runtime error: RANDOM_SEED should have at most one argument present.*" }