Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/kcc5/tfprec.c
There is 1 other file named tfprec.c in the archive. Click here to see a list.
double three = 3+(1.0/3.0);
double ten = 10.0;
double sum, temp;
float f3, f10, fsum;
int i;
main()
{
	sum = ten;
	for (;;)
	{	temp = sum * three;
		fsum = (float)sum * three;
		sum = temp;
		if (fsum != (float)sum) {
		    printf("Failed at %d!!!  fsum %.20g, sum %.20g, test %g\n",
				i, fsum, (float)sum, 20.0);
		    break;
		}
		++i;
	}
}