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