view run/creal_02.d @ 1584:75358a6522ce

[Issue 1829] New: Inline assembler cannot get label addresses <burton-radons@shaw.ca> 2007-02-12 http://d.puremagic.com/issues/show_bug.cgi?id=1829
author thomask
date Fri, 22 Feb 2008 07:55:41 +0000
parents 5511f9277078
children
line wrap: on
line source

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

module dstress.run.creal_02;

int main(){
	real x1 = 2.0L;
	real y1 = 3.0L;
	real x2 = 5.0L;
	real y2 = 7.0L;
	ireal i = 1.0Li;

	creal a = x1 + y1*i;
	creal b = x2 + y2*i;
	creal c = a - b;

	creal d = (x1-x2) + (y1*i-y2*i);
	assert(c == d);

	return 0;
}