gcc/testsuite/gfortran.dg/random_6.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do compile }
!
subroutine test1 (size, put, get)
  integer :: size
  integer, dimension(:), optional :: put
  integer, dimension(:), optional :: get
  call random_seed(size, put, get)
end

subroutine test2 (size, put, get)
  integer, optional :: size
  integer, dimension(:) :: put
  integer, dimension(:) :: get
  call random_seed(size, put, get) ! { dg-error "Too many arguments" }
end