blob: 64f835a1bcee490ed67f8087c80873849fc04c61 (
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
32
33
34
|
discard """
matrix: "--mm:refc"
disabled: true
errormsg: "(k)..(k) not disjoint from (k)..(k)"
line: 24
action: compile
"""
# 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:
ch[k] = (spawn term(float(k)))
assert ch[k] != nil
for k in 0..ch.high:
var temp = ch[k][].value
result += temp
deallocShared(ch[k])
echo formatFloat(pi(5000))
|