Mercurial > projects > dstress

view run/ieee_754_zerosdq_01.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 e720ce827c1c
children
line wrap: on
line source

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

module dstress.run.ieee_754_zerosdq_01;

// Check whether IEEE 754 signed zero is correctly supported.

union S{
	float f;
	uint[1] i;
}

int main(){
	S s;
	int top=0;


	s.f = 0.0f;
	assert(s.i[top]==0x00000000);

	s.f = -0.0f;
	assert(s.i[top]==0x80000000);

	s.f = 0.0f - 0.0f;
	assert(s.i[top]==0x00000000);

	s.f = (-0.0f) - 0.0f;
	assert(s.i[top]==0x80000000);

	s.f = 0.0f;
	s.f *= 1.0f;
	assert(s.i[top]==0x00000000);

	s.f = 0.0f;
	s.f *= -1.0f;
	assert(s.i[top]==0x80000000);

	return 0;
}