1 // { dg-do run { target c++11 } }
2 // { dg-require-c-std "" }
3 // { dg-options "-D__STDCPP_WANT_MATH_SPEC_FUNCS__" }
4 // { dg-add-options ieee }
5
6 // Copyright (C) 2016-2018 Free Software Foundation, Inc.
7 //
8 // This file is part of the GNU ISO C++ Library. This library is free
9 // software; you can redistribute it and/or modify it under the
10 // terms of the GNU General Public License as published by the
11 // Free Software Foundation; either version 3, or (at your option)
12 // any later version.
13 //
14 // This library is distributed in the hope that it will be useful,
15 // but WITHOUT ANY WARRANTY; without even the implied warranty of
16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 // GNU General Public License for more details.
18 //
19 // You should have received a copy of the GNU General Public License along
20 // with this library; see the file COPYING3. If not see
21 // <http://www.gnu.org/licenses/>.
22
23 // 8.1.13 ellint_3
24
25 #include <cmath>
26 #include <testsuite_hooks.h>
27
28 void
test01()29 test01()
30 {
31 float kf = std::numeric_limits<float>::quiet_NaN();
32 double kd = std::numeric_limits<double>::quiet_NaN();
33 long double kl = std::numeric_limits<long double>::quiet_NaN();
34
35 float nuf = 0.2F;
36 double nud = 0.2;
37 long double nul = 0.2L;
38
39 float phif = std::atan2(1.0F, 1.0F);
40 double phid = std::atan2(1.0, 1.0);
41 long double phil = std::atan2(1.0L, 1.0L);
42
43 float a = std::ellint_3(kf, nuf, phif);
44 float b = std::ellint_3f(kf, nuf, phif);
45 double c = std::ellint_3(kd, nud, phid);
46 long double d = std::ellint_3(kl, nul, phil);
47 long double e = std::ellint_3l(kl, nul, phil);
48
49 VERIFY(std::isnan(a));
50 VERIFY(std::isnan(b));
51 VERIFY(std::isnan(c));
52 VERIFY(std::isnan(d));
53 VERIFY(std::isnan(e));
54
55 return;
56 }
57
58 void
test02()59 test02()
60 {
61 float kf = 0.5F;
62 double kd = 0.5;
63 long double kl = 0.5L;
64
65 float nuf = std::numeric_limits<float>::quiet_NaN();
66 double nud = std::numeric_limits<double>::quiet_NaN();
67 long double nul = std::numeric_limits<long double>::quiet_NaN();
68
69 float phif = std::atan2(1.0F, 1.0F);
70 double phid = std::atan2(1.0, 1.0);
71 long double phil = std::atan2(1.0L, 1.0L);
72
73 float a = std::ellint_3(kf, nuf, phif);
74 float b = std::ellint_3f(kf, nuf, phif);
75 double c = std::ellint_3(kd, nud, phid);
76 long double d = std::ellint_3(kl, nul, phil);
77 long double e = std::ellint_3l(kl, nul, phil);
78
79 VERIFY(std::isnan(a));
80 VERIFY(std::isnan(b));
81 VERIFY(std::isnan(c));
82 VERIFY(std::isnan(d));
83 VERIFY(std::isnan(e));
84
85 return;
86 }
87
88 void
test03()89 test03()
90 {
91 float kf = 0.5F;
92 double kd = 0.5;
93 long double kl = 0.5L;
94
95 float nuf = 0.2F;
96 double nud = 0.2;
97 long double nul = 0.2L;
98
99 float phif = std::numeric_limits<float>::quiet_NaN();
100 double phid = std::numeric_limits<double>::quiet_NaN();
101 long double phil = std::numeric_limits<long double>::quiet_NaN();
102
103 float a = std::ellint_3(kf, nuf, phif);
104 float b = std::ellint_3f(kf, nuf, phif);
105 double c = std::ellint_3(kd, nud, phid);
106 long double d = std::ellint_3(kl, nul, phil);
107 long double e = std::ellint_3l(kl, nul, phil);
108
109 VERIFY(std::isnan(a));
110 VERIFY(std::isnan(b));
111 VERIFY(std::isnan(c));
112 VERIFY(std::isnan(d));
113 VERIFY(std::isnan(e));
114
115 return;
116 }
117
118 int
main()119 main()
120 {
121 test01();
122 test02();
123 test03();
124 return 0;
125 }
126
127