blob: dc7036009d387bf47e25875b28ee7104c4e74afe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! { dg-do run }
program foo
real x(2), y(2)
call random_init(.false., .false.)
call random_number(x)
! print *, x
x = int(1e6*x)
call random_init(.false., .false.)
call random_number(y)
! print *, y
y = int(1e6*y)
if (any(x == y)) call abort
call random_init(.true., .false.)
call random_number(x)
! print *, x
x = int(1e6*x)
call random_init(.true., .false.)
call random_number(y)
! print *, y
y = int(1e6*y)
if (any(x /= y)) call abort
end program foo
|
