754
|
1 // $HeadURL$
|
|
2 // $Date$
|
|
3 // $Author$
|
|
4
|
|
5 // @author@ Tiago Gasiba <tiago.gasiba@gmail.com>
|
|
6 // @date@ 2005-11-24
|
1489
|
7 // @uri@ http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=5643
|
754
|
8
|
|
9 module dstress.run.c.creal_30;
|
|
10
|
|
11 int main( ){
|
|
12 creal[] array;
|
|
13 array.length = 3;
|
920
|
14 array[0] = 1.0L + 0.0Li;
|
|
15 array[1] = 0.0L + 1.0Li;
|
|
16 array[2] = 1.0L + 1.0Li;
|
754
|
17
|
|
18 for(int i = 0; i < array.length; i++ ){
|
920
|
19 array[i] += -1.0Li * array[i];
|
754
|
20 }
|
|
21
|
1086
|
22 if(array[0] != 1.0L - 1.0Li){
|
|
23 assert(0);
|
|
24 }
|
|
25 if(array[1] != 1.0L + 1.0Li){
|
|
26 assert(0);
|
|
27 }
|
|
28 if(array[2] != 2.0L + 0.0Li){
|
|
29 assert(0);
|
|
30 }
|
754
|
31
|
|
32 return 0;
|
|
33 }
|