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

module dstress.run.i.ieee_754_flt2int_A;

int main(){
	size_t border;

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

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

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

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

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

	return 0;
}