Mercurial > projects > dstress
view run/creal_15.d @ 1619:bebc7472a832
Fix #7.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Sat, 07 Nov 2009 18:55:30 +0100 |
parents | 56d43974b468 |
children |
line wrap: on
line source
// $HeadURL$ // $Date$ // $Author$ module dstress.run.creal_15; 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.nan; creal b; b = real.nan + ireal.nan; assert(isIdentical(a.re, b.re)); assert(isIdentical(a.im, b.im)); real c = real.nan; real d=a.re; assert(isIdentical(c, d)); d=a.im; assert(isIdentical(c, d)); return 0; }