gcc/testsuite/gfortran.dg/random_6.f90

   1 ! { dg-do compile }
   2 !
   3 subroutine test1 (size, put, get)
   4   integer :: size
   5   integer, dimension(:), optional :: put
   6   integer, dimension(:), optional :: get
   7   call random_seed(size, put, get)
   8 end
   9
  10 subroutine 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" }
  15 end