view run/d/double_27_D.d @ 1279:23fe17e22a63

partial review
author thomask
date Mon, 25 Dec 2006 15:07:48 +0000
parents 9dcac8d4e97f
children
line wrap: on
line source

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

// based on: gcc.c-torture/execute/ieee/acc2.c

module dstress.run.d.double_27_D;

double func (double *array){
	double d = *array;

	if (d == 1.0){
		return d;
	}else{
		return d + func (array + 1);
	}
}

int main (){
	const double values[] = [double.max, 2.0, 0.5, 1.0];

	if(func(values.ptr) != double.max){
		assert(0);
	}

	return 0;
}