OSDN Git Service

PR fortran/30964
[pf3gnuchains/gcc-fork.git] / 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