OSDN Git Service

Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / random_7.f90
1 ! { dg-do run }
2 ! { dg-options "-fdefault-integer-8" }
3 !
4 program trs
5   implicit none
6   integer :: size, ierr
7   integer, allocatable, dimension(:) :: seed, check
8   call test_random_seed(size)
9   allocate(seed(size),check(size))
10   seed(:) = huge(seed) / 17
11   call test_random_seed(put=seed)
12   call test_random_seed(get=check)
13   print *, seed
14   print *, check
15   if (any (seed /= check)) call abort
16 contains
17   subroutine test_random_seed(size, put, get)
18     integer, optional :: size
19     integer, dimension(:), optional :: put
20     integer, dimension(:), optional :: get
21     call random_seed(size, put, get)
22   end subroutine test_random_seed
23 end program trs