blob: 12eb3140241d0b6fb80d292ee5ee50eb98cba2bd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
discard """
errormsg: "'foo' not disjoint from 'foo'"
line: 23
disabled: "true"
"""
# bug #1597
import strutils, math, threadpool
type
BoxedFloat = object
value: float
proc term(k: float): ptr BoxedFloat =
var temp = 4 * math.pow(-1, k) / (2*k + 1)
result = cast[ptr BoxedFloat](allocShared(sizeof(BoxedFloat)))
result.value = temp
proc pi(n: int): float =
var ch = newSeq[ptr BoxedFloat](n+1)
parallel:
for k in 0..ch.high:
let foo = (spawn term(float(k)))
assert foo != nil
for k in 0..ch.high:
var temp = ch[k][].value
result += temp
deallocShared(ch[k])
echo formatFloat(pi(5000))
|