Sign in
llvm
/
llvm-archive
/
67ca873b99b7e631820d261833301c41ad8006b1
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
random_init.f90
blob: 36394589d8bc6e0464f693a2bfc3c4148041288c [
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
))
call abort
end
program