Fix serialization for RandomDevice. Closes JuliaLang#16451.

base/random.jl

@@ -44,8 +44,9 @@ if is_windows()
 else # !windows
  immutable RandomDevice <: AbstractRNG
  file::IOStream
+ unlimited::Bool
 
- RandomDevice(unlimited::Bool=true) = new(open(unlimited ? "/dev/urandom" : "/dev/random"))
+ RandomDevice(unlimited::Bool=true) = new(open(unlimited ? "/dev/urandom" : "/dev/random"), unlimited)
  end
 
  rand{ T<:Union{Bool, Base.BitInteger}}(rd::RandomDevice, ::Type{T}) = read( rd.file, T)

base/serialize.jl

@@ -895,4 +895,14 @@ function deserialize(s::SerializationState, t::Type{Regex})
  Regex(pattern, compile_options, match_options)
 end
 
+if !is_windows()
+ function serialize(s::SerializationState, rd::RandomDevice)
+ serialize_type(s, typeof(rd))
+ serialize(s, rd.unlimited)
+ end
+ function deserialize(s::SerializationState, t::Type{RandomDevice})
+ unlimited = deserialize(s)
+ return RandomDevice(unlimited)
+ end
+end
 end

test/parallel_exec.jl

@@ -986,3 +986,16 @@ end
 
 # issue #15451
 @test remotecall_fetch(x->(y->2y)(x)+1, workers()[1], 3) == 7
+
+# issue #16451
+rng=RandomDevice()
+retval = @parallel (+) for _ in 1:10
+ rand(rng)
+end
+@test retval > 0.0 && retval < 10.0
+
+rand(rng)
+retval = @parallel (+) for _ in 1:10
+ rand(rng)
+end
+@test retval > 0.0 && retval < 10.0