| ! { 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 |