Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
random_init.f90
blob: e7a3b8e2eb4ca290ec49fb55c182075df2a46be5 [
file
] [
log
] [
blame
]
!
pr
15149
!
verify the random number generator
is
functional
program test_random
implicit
none
real
::
r
(
5
)
=
0.0
call random_number
(
r
)
if
(
all
(
r
.
eq
.
0
))
STOP
1
end
program