|
885
|
1 // $HeadURL$
|
|
|
2 // $Date$
|
|
|
3 // $Author$
|
|
|
4
|
|
|
5 // @author@ Don Clugston <dac@nospam.com.au>
|
|
|
6 // @date@ 2006-03-02
|
|
1489
|
7 // @uri@ http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=6425
|
|
885
|
8
|
|
|
9 module dstress.run.c.cdouble_09_C;
|
|
|
10
|
|
|
11 union S{
|
|
|
12 double f;
|
|
|
13 uint[2] i;
|
|
|
14 }
|
|
|
15
|
|
|
16 int main(){
|
|
|
17 double re = 0.0;
|
|
|
18 idouble im = -0.0i;
|
|
|
19 cdouble a = re + im;
|
|
|
20
|
|
|
21 S s;
|
|
|
22 s.f = 1;
|
|
|
23 int top = (s.i[0]==0) ? 1 : 0;
|
|
|
24
|
|
|
25 s.f = a.re;
|
|
|
26 if(s.i[top] != 0x00000000){
|
|
|
27 assert(0);
|
|
|
28 }
|
|
|
29
|
|
|
30 s.f = a.im;
|
|
|
31 if(s.i[top] != 0x80000000){
|
|
|
32 assert(0);
|
|
|
33 }
|
|
|
34
|
|
|
35 return 0;
|
|
|
36 }
|
