Subversion Repositories openrisc

/* { dg-do run { target { { powerpc*-*-darwin* powerpc*-*-aix* rs6000-*-* } || { powerpc*-*-linux* && lp64 } } } } */

/* { dg-options "-mlong-double-128" } */

/* Check that LDBL_EPSILON is right for 'long double'.  */

#include <float.h>

extern void abort (void);

int main(void)

{

  volatile long double ee = 1.0;

  long double eps = ee;

  while (ee + 1.0 != 1.0)

    {

      eps = ee;

      ee = eps / 2;

    }

  if (eps != LDBL_EPSILON)

    abort ();

  return 0;

}