1! { dg-do run } 2! { dg-shouldfail "" } 3! 4program trs 5 implicit none 6 integer :: size 7 integer :: seed(50) 8 call test_random_seed(size,seed) 9contains 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 16end program trs 17! { dg-output "Fortran runtime error: RANDOM_SEED should have at most one argument present.*" } 18