| 1234567891011121314151617181920212223242526272829303132333435 |
- 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))
|
