view run/c/cdouble_01_A.d @ 1630:d0efa3ae5522 default tip

run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author David Nadlinger <code@klickverbot.at>
date Sat, 23 Apr 2011 22:57:32 +0200
parents b8c0195059d9
children
line wrap: on
line source

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

// @author@	Nick <Nick_member@pathlink.com>
// @date@	2005-05-25
// @uri@	http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=4162

module dstress.run.c.cdouble_01_A;

int main(){
	static cdouble[] params = [1.0 + 0.0i, 3.0 + 0.0i, 5.0 + 0.0i];

	cdouble[] sums = new cdouble[3];
	sums[] = 0.0 + 0.0i;

	foreach(cdouble d; params){
		cdouble prod = d;

		for(int i; i<2; i++){
			sums[i] += prod;
			prod *= d;
		}
		sums[2] += prod;
	}

	assert(sums[0].re == 9.0);
	assert(sums[0].im == 0.0);
	assert(sums[1].re == 35.0);
	assert(sums[1].im == 0.0);
	assert(sums[2].re == 153.0);
	assert(sums[2].im == 0.0);

	return 0;
}