1 /* Test of remainderl() function.
2    Copyright (C) 2010-2021 Free Software Foundation, Inc.
3 
4    This program is free software: you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 3 of the License, or
7    (at your option) any later version.
8 
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13 
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
16 
17 /* Written by Bruno Haible <bruno@clisp.org>, 2010.  */
18 
19 #include <config.h>
20 
21 #include <math.h>
22 
23 #include "signature.h"
24 SIGNATURE_CHECK (remainderl, long double, (long double, long double));
25 
26 #include <float.h>
27 
28 #include "fpucw.h"
29 #include "macros.h"
30 
31 #define DOUBLE long double
32 #define L_(literal) literal##L
33 #define MANT_DIG LDBL_MANT_DIG
34 #define MAX_EXP LDBL_MAX_EXP
35 #define REMAINDER remainderl
36 #define RANDOM randoml
37 #include "test-remainder.h"
38 
39 int
main()40 main ()
41 {
42   DECL_LONG_DOUBLE_ROUNDING
43 
44   BEGIN_LONG_DOUBLE_ROUNDING ();
45 
46   /* A particular value.  */
47   x = 9.245907126L;
48   y = 3.141592654L;
49   z = remainderl (x, y);
50   ASSERT (z >= -0.178870837L && z <= -0.178870835L);
51 
52   test_function ();
53 
54   return 0;
55 }
56