gcc/testsuite/gcc.apple/test-ldouble.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

/* { dg-do compile } */
/* { dg-options "-Os" } */

extern void __inline_x80told(long double *x);
extern double rint( double );

extern unsigned long AECreateDesc(const void * dataPtr);

unsigned long aeCoercePtrToMagnitude()
{
 unsigned long err = 0;
 unsigned long magValue;
 double doubleValue;
 long double longDoubleValue;

   __inline_x80told(&longDoubleValue);
   doubleValue = longDoubleValue;
   if (doubleValue < 0)
    err = 2;
   else
    magValue = (unsigned long) rint(doubleValue);
  err = AECreateDesc(&magValue);
 return err;
}