view run/creal_13.d @ 1330:f3f715978184

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 5511f9277078
children 56d43974b468
line wrap: on
line source

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

module dstress.run.creal_13;

int main(){
	creal a;
	creal b;
	byte* X = cast(byte*)(cast(void*)&a);

	b = real.init + ireal.init;
	byte* Y = cast(byte*)(cast(void*)&b);

	for(size_t i=0; i<a.sizeof; i++){
		assert(X[i]==Y[i]);
	}

	real c;
	real d=a.re;
	X = cast(byte*)(cast(void*)&c);
	Y = cast(byte*)(cast(void*)&d);

	for(size_t i=0; i<c.sizeof; i++){
		assert(X[i]==Y[i]);
	}

	d=a.im;
	X = cast(byte*)(cast(void*)&c);
	Y = cast(byte*)(cast(void*)&d);
	for(size_t i=0; i<c.sizeof; i++){
		assert(X[i]==Y[i]);
	}
	
	return 0;
}