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