view run/creal_13.d @ 1623:04022926a4d5

Fix dstress.run.b.bug_cod1_2528_C as reported by Don Clugston Quoting Don's words from Ticket #8: Fails because it returns 3 instead of 0. The DStress test case is incorrect. The arrray literal is an int, so it's 4 bytes. Casting it to void[] should give a length of 4 -- and that's exactly what it does. Should be "return x.length - 4;".
author Leandro Lucarella <llucax@gmail.com>
date Fri, 05 Nov 2010 10:10:51 -0300
parents 56d43974b468
children
line wrap: on
line source

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

module dstress.run.creal_13;

bool isIdentical(real x, real y)
{
	long* x64 = cast(long*)&x;
	long* y64 = cast(long*)&y;
	ushort* x16 = cast(ushort*)&x + 4;
	ushort* y16 = cast(ushort*)&y + 4;
	return *x64 == *y64 && *x16 == *y16;
}

int main(){
	creal a;
	creal b;

	b = real.init + ireal.init;
	assert(isIdentical(a.re, b.re));
	assert(isIdentical(a.im, b.im));

	real c;
        
	real d=a.re;
	assert(isIdentical(c, d));

	d=a.im;
	assert(isIdentical(c, d));

	return 0;
}