Mercurial > projects > dstress

view run/ieee_754_zerocomp_09.d @ 1330:f3f715978184

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Georg Wrede <georg@iki.fi> 2007-01-07 mail:45A120F5.1050108@iki.fi
author thomask
date Sat, 13 Jan 2007 10:33:49 +0000
parents 80e1b85295b3
children
line wrap: on
line source

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

module dstress.run.ieee_754_zerocomp_09;

int main(){
	creal f1, f2;

	f1=0.0L+0.0Li;
	f2=-f1;
	if(f1 != f2){
		assert(0);
	}

	f1=0.0L-0.0Li;
	f2=-f1;
	if(f1 != f2){
		assert(0);
	}

	f1=-0.0L+0.0Li;
	f2=-f1;
	if(f1 != f2){
		assert(0);
	}

	f1=-0.0L-0.0Li;
	f2=-f1;
	if(f1 != f2){
		assert(0);
	}

	return 0;
}