1! { dg-do compile }
2!
3subroutine test1 (size, put, get)
4  integer :: size
5  integer, dimension(:), optional :: put
6  integer, dimension(:), optional :: get
7  call random_seed(size, put, get)
8end
9
10subroutine 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" }
15end
16