view run/b/bug_cgcod_562_Q3.d @ 1489:b8c0195059d9

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

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

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

module dstress.run.b.bug_cgcod_562_Q3;

template test( T : T[] ){
	void test( T[] data ) {
		data[0] /= cast(creal)data.length;
	}
}

alias test!(creal[]) bug;

int main(){
	creal[2] array;
	array[0] = 2.0L + 0.0Li;

	bug(array);
	array[0] -= 1.0L;
	if(array[0].re < 0.0L){
		array[0] *= -1.0L;
	}

	if(array[0].re > real.epsilon * 4.0L){
		assert(0);
	}
	if(array[0].im > real.epsilon * 4.0L){
		assert(0);
	}

	return 0;
}