mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-05-31 22:41:28 +00:00
27 lines
530 B
C
27 lines
530 B
C
extern void abort ();
|
|
|
|
int
|
|
main ()
|
|
{
|
|
int i;
|
|
double oldrho;
|
|
double beta = 0.0;
|
|
double work = 1.0;
|
|
for (i = 1; i <= 2; i++)
|
|
{
|
|
double rho = work * work;
|
|
if (i != 1)
|
|
beta = rho / oldrho;
|
|
if (beta == 1.0)
|
|
abort ();
|
|
|
|
/* All targets even remotely likely to ever get supported
|
|
use at least an even base, so there will never be any
|
|
floating-point rounding. All computation in this test
|
|
case is exact for even bases. */
|
|
work /= 2.0;
|
|
oldrho = rho;
|
|
}
|
|
return 0;
|
|
}
|