File: builtin-sin-mpfr-1.c

package info (click to toggle)
gcc-riscv64-unknown-elf 8.3.0.2019.08%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 680,956 kB
  • sloc: ansic: 3,237,715; cpp: 896,882; ada: 772,854; f90: 144,254; asm: 68,788; makefile: 67,456; sh: 29,743; exp: 28,045; objc: 15,273; fortran: 11,885; python: 7,369; pascal: 5,375; awk: 3,725; perl: 2,872; yacc: 316; xml: 311; ml: 285; lex: 198; haskell: 122
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;
}