! { dg-do compile }
! PR fortran/95037
! This led to a segfault or a confusing error message.  Original
! test case by Bill Long.

subroutine my_random_seed_v (size, put, get)
integer, optional :: size
integer, optional :: put(1)
integer, optional :: get(1)
call random_seed (size, get=get) ! { dg-error "too small" }
call random_seed (size, put=put) ! { dg-error "too small" }
call random_seed (size, get=get, put=put) ! { dg-error "too small" }
end subroutine my_random_seed_v