Files
Nim/tests/parallel/t5000.nim
2014-12-11 20:50:32 +01:00

26 lines
361 B
Nim

discard """
output: '''50005000'''
disabled: "true"
"""
# XXX this seems to deadlock certain Linux machines
import threadpool, strutils
proc foo(x: int): string = $x
proc main() =
var a = newSeq[int]()
for i in 1..10000:
add(a, i)
var s = 0
for i in a:
s += parseInt(^spawn(foo(i)))
echo s
setMaxPoolSize 2
parallel:
spawn main()