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

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

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

// @author@	Tiago Gasiba <tiago.gasiba@gmail.com>
// @date@	2005-11-24
// @uri@	http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=5643

module dstress.run.c.cdouble_06;

int main( ){
	cdouble[] array;
	array.length = 3;
	array[0] = 1.0 + 0.0i;
	array[1] = 0.0 + 1.0i;
	array[2] = 1.0 + 1.0i;

	for(int i = 0; i < array.length; i++ ){
		array[i] += -1.0i * array[i];
	}

	if(array[0] != 1.0 - 1.0i){
		assert(0);
	}
	if(array[1] != 1.0 + 1.0i){
		assert(0);
	}
	if(array[2] != 2.0 + 0.0i){
		assert(0);
	}

	return 0;
}