3 subroutine test1 (size, put, get)
5 integer, dimension(:), optional :: put
6 integer, dimension(:), optional :: get
7 call random_seed(size, put, get)
10 subroutine test2 (size, put, get)
11 integer, optional :: size
12 integer, dimension(:) :: put
13 integer, dimension(:) :: get
14 call random_seed(size, put, get) ! { dg-error "Too many arguments" }