diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/random_4.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/random_4.f90 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/random_4.f90 b/gcc/testsuite/gfortran.dg/random_4.f90 new file mode 100644 index 000000000..416b17c00 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/random_4.f90 @@ -0,0 +1,19 @@ +! { dg-do run } +! +program trs + implicit none + integer :: size, ierr + integer, allocatable, dimension(:) :: seed, check + call test_random_seed(size) + allocate(seed(size),check(size)) + call test_random_seed(put=seed) + call test_random_seed(get=check) + if (any (seed /= check)) call abort +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 |