Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/random_7.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900 (2018-10-24)
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
11 call test_random_seed(put=seed) 11 call test_random_seed(put=seed)
12 call test_random_seed(get=check) 12 call test_random_seed(get=check)
13 ! In the current xorshift1024* implementation the last seed value is 13 ! In the current xorshift1024* implementation the last seed value is
14 ! special 14 ! special
15 seed(size) = check(size) 15 seed(size) = check(size)
16 if (any (seed /= check)) call abort 16 if (any (seed /= check)) STOP 1
17 contains 17 contains
18 subroutine test_random_seed(size, put, get) 18 subroutine test_random_seed(size, put, get)
19 integer, optional :: size 19 integer, optional :: size
20 integer, dimension(:), optional :: put 20 integer, dimension(:), optional :: put
21 integer, dimension(:), optional :: get 21 integer, dimension(:), optional :: get