diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/random_7.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/random_7.f90 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/random_7.f90 b/gcc/testsuite/gfortran.dg/random_7.f90 new file mode 100644 index 000000000..6435a34cf --- /dev/null +++ b/gcc/testsuite/gfortran.dg/random_7.f90 @@ -0,0 +1,23 @@ +! { dg-do run } +! { dg-options "-fdefault-integer-8" } +! +program trs + implicit none + integer :: size, ierr + integer, allocatable, dimension(:) :: seed, check + call test_random_seed(size) + allocate(seed(size),check(size)) + seed(:) = huge(seed) / 17 + call test_random_seed(put=seed) + call test_random_seed(get=check) + print *, seed + print *, 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 |