Mercurial > projects > dstress
view run/o/opDiv_09_A.d @ 1602:56d43974b468
Fix broken tests fvbommel pointed out in #2.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Fri, 06 Mar 2009 15:48:16 +0100 |
parents | b8c0195059d9 |
children |
line wrap: on
line source
// $HeadURL$ // $Date$ // $Author$ // @author@ David Friedman <d3rdclsmail_a_@_t_earthlink_d_._t_net> // @date@ 2005-05-03 // @uri@ http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=3881 module dstress.run.o.opDiv_09_A; 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(){ real a = -1.0L / 0.0L; real b = -1.0L; real c = 0.0L; real d; d = b/c; assert(isIdentical(a, d)); return 0; }