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