Mercurial > projects > dstress
view run/c/cdouble_08_A.d @ 885:db221d4acc19
Don Clugston <dac@nospam.com.au>
2006-03-02
news:<du6chp$hub$1@digitaldaemon.com
author | thomask |
---|---|
date | Fri, 03 Mar 2006 17:28:18 +0000 |
parents | |
children | a8cf8aa0da50 |
line wrap: on
line source
// $HeadURL$ // $Date$ // $Author$ // @author@ Don Clugston <dac@nospam.com.au> // @date@ 2006-03-02 // @uri@ news:<du6chp$hub$1@digitaldaemon.com module dstress.run.c.cdouble_08_A; union S{ double f; uint[2] i; } int main(){ const cdouble a = - 0.0 + 0.0i; S s; s.f = 1; int top = (s.i[0]==0) ? 1 : 0; s.f = a.re; if(s.i[top] != 0x80000000){ assert(0); } s.f = a.im; if(s.i[top] != 0x00000000){ assert(0); } return 0; }