Subversion Repositories openrisc_2011-10-31

! { dg-do run }

! { dg-shouldfail "" }

!

program trs

  implicit none

  integer :: size

  integer :: seed(50)

  call test_random_seed(size,seed)

contains

  subroutine test_random_seed(size, put, get)

    integer, optional :: size

    integer, dimension(:), optional :: put

    integer, dimension(:), optional :: get

    call random_seed(size, put, get)

  end subroutine test_random_seed

end program trs

! { dg-output "Fortran runtime error: RANDOM_SEED should have at most one argument present.*" }