view run/c/cfloat_09_A.d @ 1489:b8c0195059d9

changed nntp: URLs to http: URLs
author thomask
date Mon, 09 Apr 2007 13:47:01 +0000
parents a8cf8aa0da50
children
line wrap: on
line source

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

// @author@	Don Clugston <dac@nospam.com.au>
// @date@	2006-03-02
// @uri@	http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=6425

module dstress.run.c.cfloat_09_A;

union S{
	float f;
	uint i;
}

int main(){
	float re = -0.0;
	ifloat im = 0.0i;
	cfloat a = re + im;

	S s;

	s.f = a.re;
	if(s.i != 0x80000000){
		assert(0);
	}

	s.f = a.im;
	if(s.i != 0x00000000){
		assert(0);
	}

	return 0;
}