view run/i/ieee_754_flt2int_B.d @ 1597:8b9d4d2f925a

Fix typos in complex tests. See D bug 614.
author Christian Kamm <kamm incasoftware de>
date Tue, 09 Sep 2008 16:53:58 +0200
parents 9dcac8d4e97f
children
line wrap: on
line source

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

module dstress.run.i.ieee_754_flt2int_B;

int main(){
	size_t border;

	if((long.sizeof * 8) - 1 < double.dig * 3){
		border = (long.sizeof * 8) - 1;
	}else{
		border = double.dig * 3;
	}

	for(size_t i = 0; i < border; i++){
		double a = 1.0;
		for(size_t j = i; j > 0; j--){
			a *= 2.0;
		}
		long b = cast(long) a;
		double c = a;

		if(c != a){
			assert(0);
		}
	}

	for(size_t i = 0; i < border; i++){
		double a = -1.0;
		for(size_t j = i; j > 0; j--){
			a *= 2.0;
		}
		long b = cast(long) a;
		double c = a;

		if(c != a){
			assert(0);
		}
	}

	return 0;
}