Mercurial > projects > dstress
view run/creal_13.d @ 1620:01e1c391b52d
Fix #6.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Sat, 07 Nov 2009 19:00:12 +0100 |
parents | 56d43974b468 |
children |
line wrap: on
line source
// $HeadURL$ // $Date$ // $Author$ module dstress.run.creal_13; bool isIdentical(real x, real y) { long* x64 = cast(long*)&x; long* y64 = cast(long*)&y; ushort* x16 = cast(ushort*)&x + 4; ushort* y16 = cast(ushort*)&y + 4; return *x64 == *y64 && *x16 == *y16; } int main(){ creal a; creal b; b = real.init + ireal.init; assert(isIdentical(a.re, b.re)); assert(isIdentical(a.im, b.im)); real c; real d=a.re; assert(isIdentical(c, d)); d=a.im; assert(isIdentical(c, d)); return 0; }