Subversion Repositories openrisc

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;

}