File: builtin-sin-mpfr-1.c

package info (click to toggle)
gcc-arm-none-eabi 15%3A14.2.rel1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,099,328 kB
  • sloc: cpp: 3,627,108; ansic: 2,571,498; ada: 834,230; f90: 235,082; makefile: 79,231; asm: 74,984; xml: 51,692; exp: 39,736; sh: 33,298; objc: 15,629; python: 15,069; fortran: 14,429; pascal: 7,003; awk: 5,070; perl: 3,106; ml: 285; lisp: 253; lex: 204; haskell: 135
file content (29 lines) | stat: -rw-r--r-- 725 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
/* Version 2.2.0 of MPFR had bugs in sin rounding.  This test checks
   to see if that buggy version was installed.  The problem is fixed
   in version 2.2.1 and presumably later MPFR versions.

   Origin: Kaveh R. Ghazi 10/23/2006.  */

/* { dg-do link } */

extern void link_error (int, double, double);

#define TESTIT(ARG,RES) do { \
  if (sizeof (double) == 8 && __builtin_sin(ARG) != RES) \
    link_error(__LINE__, __builtin_sin(ARG), RES); \
  } while (0);

int main()
{
  TESTIT (-0x1.c0016155c4da3p-1, -0x1.88fc58bcf030dp-1);

  TESTIT (0x1.30654d85c2756p-2, 0x1.2beeb9de27a79p-2);

  TESTIT (0x1.fe68ccaa8e201p+2, 0x1.fc3f0c54e97a7p-1);

  /* This case should always pass.  */
  TESTIT (0.0, 0.0);

  return 0;
}