Mercurial > projects > dstress
view run/c/cdouble_09_D.d @ 1322:a8cf8aa0da50
fixed malformed @uri@ entries
author | thomask |
---|---|
date | Sun, 31 Dec 2006 20:00:23 +0000 |
parents | db221d4acc19 |
children | b8c0195059d9 |
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_09_D; union S{ double f; uint[2] i; } int main(){ double re = -0.0; idouble im = -0.0i; cdouble a = re + im; 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] != 0x80000000){ assert(0); } return 0; }