560
|
1 // $HeadURL$
|
|
2 // $Date$
|
|
3 // $Author$
|
|
4
|
|
5 // @author@ Nick <Nick_member@pathlink.com>
|
|
6 // @date@ 2005-05-25
|
1489
|
7 // @uri@ http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=4162
|
560
|
8
|
|
9 module dstress.run.c.cdouble_01_A;
|
|
10
|
|
11 int main(){
|
920
|
12 static cdouble[] params = [1.0 + 0.0i, 3.0 + 0.0i, 5.0 + 0.0i];
|
560
|
13
|
|
14 cdouble[] sums = new cdouble[3];
|
920
|
15 sums[] = 0.0 + 0.0i;
|
560
|
16
|
|
17 foreach(cdouble d; params){
|
|
18 cdouble prod = d;
|
|
19
|
|
20 for(int i; i<2; i++){
|
|
21 sums[i] += prod;
|
|
22 prod *= d;
|
|
23 }
|
|
24 sums[2] += prod;
|
|
25 }
|
|
26
|
920
|
27 assert(sums[0].re == 9.0);
|
|
28 assert(sums[0].im == 0.0);
|
|
29 assert(sums[1].re == 35.0);
|
|
30 assert(sums[1].im == 0.0);
|
|
31 assert(sums[2].re == 153.0);
|
|
32 assert(sums[2].im == 0.0);
|
560
|
33
|
|
34 return 0;
|
|
35 }
|