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.cfloat_08_D;
|
|
10
|
|
11 union S{
|
|
12 float f;
|
|
13 uint i;
|
|
14 }
|
|
15
|
|
16 int main(){
|
920
|
17 const cfloat a = - 0.0f - 0.0fi;
|
885
|
18
|
|
19 S s;
|
|
20
|
|
21 s.f = a.re;
|
|
22 if(s.i != 0x80000000){
|
|
23 assert(0);
|
|
24 }
|
|
25
|
|
26 s.f = a.im;
|
|
27 if(s.i != 0x80000000){
|
|
28 assert(0);
|
|
29 }
|
|
30
|
|
31 return 0;
|
|
32 }
|