1	FPI *fpi, fpi1;
 2	int Rounding;
 3#ifdef Trust_FLT_ROUNDS /*{{ only define this if FLT_ROUNDS really works! */
 4	Rounding = Flt_Rounds;
 5#else /*}{*/
 6	Rounding = 1;
 7	switch(fegetround()) {
 8	  case FE_TOWARDZERO:	Rounding = 0; break;
 9	  case FE_UPWARD:	Rounding = 2; break;
10	  case FE_DOWNWARD:	Rounding = 3;
11	}
12#endif /*}}*/
13	fpi = &fpi0;
14	if (Rounding != 1) {
15		fpi1 = fpi0;
16		fpi = &fpi1;
17		fpi1.rounding = Rounding;
18	}