Mercurial > projects > dstress

view run/d/double_27_A.d @ 1630:d0efa3ae5522 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author David Nadlinger <code@klickverbot.at>
date Sat, 23 Apr 2011 22:57:32 +0200
parents 9dcac8d4e97f
children
line wrap: on
line source

// $HeadURL$
// $Date$
// $Author$

// based on: gcc.c-torture/execute/ieee/20010226-1.c

module dstress.run.d.double_27_A;

double dfrom = 1.1;
double m1;
double m2;

ulong mant_long;

int main(){
	m1 = dfrom / 2.0;
	m2 = m1 * 4294967296.0;
	mant_long = (cast(ulong) m2) & 0xFFFF_FFFF;

	if(mant_long != 0x8CCC_CCCC){
		assert(0);
	}

	return 0;
}