Subversion Repositories openrisc

/* { dg-do run } */

union double_union

{

  double d;

  int i[2];

};

void _dtoa_r (double) __attribute__ ((__noinline__));

void _vfprintf_r (double) __attribute__ ((__noinline__));

void

__sprint_r(int);

void

_vfprintf_r(double da)

{

 double ffp = da;

 double value = ffp;

 union double_union tmp;

 tmp.d = value;

 if ((tmp.i[1]) & ((unsigned)0x80000000L)) {

   value = -value;

 }

 _dtoa_r (value);

 if (ffp != 0)

   __sprint_r(value == 0);

 __asm__ ("");

}

double dd = -.012;

double ff = .012;

void exit (int) __attribute__ ((__noreturn__));

void abort (void) __attribute__ ((__noreturn__));

void *memset(void *s, int c, __SIZE_TYPE__ n);

void _dtoa_r (double d)

{

  if (d != ff)

    abort ();

  __asm__ ("");

}

void __sprint_r (int i)

{

  if (i != 0)

    abort ();

  __asm__ ("");

}

int clearstack (void) __attribute__ ((__noinline__));

int clearstack (void)

{

  char doodle[128];

  memset (doodle, 0, sizeof doodle);

  __asm__ volatile ("" : : "g" (doodle) : "memory");

  return doodle[127];

}

void doit (void) __attribute__ ((__noinline__));

void doit (void)

{

  _vfprintf_r (dd);

  _vfprintf_r (ff);

  __asm__ ("");

}

int main(void)

{

  clearstack ();

  doit ();

  exit (0);

}