X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=libstdc%2B%2B-v3%2Ftestsuite%2Ftr1%2F5_numerical_facilities%2Fspecial_functions%2F14_ellint_3%2Fcheck_nan.cc;fp=libstdc%2B%2B-v3%2Ftestsuite%2Ftr1%2F5_numerical_facilities%2Fspecial_functions%2F14_ellint_3%2Fcheck_nan.cc;h=34b2ec97411bba488954878aa5f8fb1d5b5c68fe;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=0000000000000000000000000000000000000000;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/libstdc++-v3/testsuite/tr1/5_numerical_facilities/special_functions/14_ellint_3/check_nan.cc b/libstdc++-v3/testsuite/tr1/5_numerical_facilities/special_functions/14_ellint_3/check_nan.cc
new file mode 100644
index 00000000..34b2ec97
--- /dev/null
+++ b/libstdc++-v3/testsuite/tr1/5_numerical_facilities/special_functions/14_ellint_3/check_nan.cc
@@ -0,0 +1,126 @@
+// { dg-require-c-std "" }
+// { dg-options "-mieee" { target sh*-*-* } }
+
+// 2007-01-10  Edward Smith-Rowland <3dw4rd@verizon.net>
+//
+// Copyright (C) 2007, 2009 Free Software Foundation, Inc.
+//
+// This file is part of the GNU ISO C++ Library.  This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 3, or (at your option)
+// any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License along
+// with this library; see the file COPYING3.  If not see
+// <http://www.gnu.org/licenses/>.
+
+// 5.2.1.13 ellint_3
+
+#include <tr1/cmath>
+#include <testsuite_hooks.h>
+
+void
+test01()
+{
+  float kf = std::numeric_limits<float>::quiet_NaN();
+  double kd = std::numeric_limits<double>::quiet_NaN();
+  long double kl = std::numeric_limits<long double>::quiet_NaN();
+
+  float nuf = 0.2F;
+  double nud = 0.2;
+  long double nul = 0.2L;
+
+  float phif = std::atan2(1.0F, 1.0F);
+  double phid = std::atan2(1.0, 1.0);
+  long double phil = std::atan2(1.0L, 1.0L);
+
+  float a = std::tr1::ellint_3(kf, nuf, phif);
+  float b = std::tr1::ellint_3f(kf, nuf, phif);
+  double c = std::tr1::ellint_3(kd, nud, phid);
+  long double d = std::tr1::ellint_3(kl, nul, phil);
+  long double e = std::tr1::ellint_3l(kl, nul, phil);
+
+  VERIFY(std::tr1::isnan<float>(a));
+  VERIFY(std::tr1::isnan<float>(b));
+  VERIFY(std::tr1::isnan<double>(c));
+  VERIFY(std::tr1::isnan<long double>(d));
+  VERIFY(std::tr1::isnan<long double>(e));
+
+  return;
+}
+
+void
+test02()
+{
+  float kf = 0.5F;
+  double kd = 0.5;
+  long double kl = 0.5L;
+
+  float nuf = std::numeric_limits<float>::quiet_NaN();
+  double nud = std::numeric_limits<double>::quiet_NaN();
+  long double nul = std::numeric_limits<long double>::quiet_NaN();
+
+  float phif = std::atan2(1.0F, 1.0F);
+  double phid = std::atan2(1.0, 1.0);
+  long double phil = std::atan2(1.0L, 1.0L);
+
+  float a = std::tr1::ellint_3(kf, nuf, phif);
+  float b = std::tr1::ellint_3f(kf, nuf, phif);
+  double c = std::tr1::ellint_3(kd, nud, phid);
+  long double d = std::tr1::ellint_3(kl, nul, phil);
+  long double e = std::tr1::ellint_3l(kl, nul, phil);
+
+  VERIFY(std::tr1::isnan<float>(a));
+  VERIFY(std::tr1::isnan<float>(b));
+  VERIFY(std::tr1::isnan<double>(c));
+  VERIFY(std::tr1::isnan<long double>(d));
+  VERIFY(std::tr1::isnan<long double>(e));
+
+  return;
+}
+
+void
+test03()
+{
+  float kf = 0.5F;
+  double kd = 0.5;
+  long double kl = 0.5L;
+
+  float nuf = 0.2F;
+  double nud = 0.2;
+  long double nul = 0.2L;
+
+  float phif = std::numeric_limits<float>::quiet_NaN();
+  double phid = std::numeric_limits<double>::quiet_NaN();
+  long double phil = std::numeric_limits<long double>::quiet_NaN();
+
+  float a = std::tr1::ellint_3(kf, nuf, phif);
+  float b = std::tr1::ellint_3f(kf, nuf, phif);
+  double c = std::tr1::ellint_3(kd, nud, phid);
+  long double d = std::tr1::ellint_3(kl, nul, phil);
+  long double e = std::tr1::ellint_3l(kl, nul, phil);
+
+  VERIFY(std::tr1::isnan<float>(a));
+  VERIFY(std::tr1::isnan<float>(b));
+  VERIFY(std::tr1::isnan<double>(c));
+  VERIFY(std::tr1::isnan<long double>(d));
+  VERIFY(std::tr1::isnan<long double>(e));
+
+  return;
+}
+
+int
+main()
+{
+  test01();
+  test02();
+  test03();
+  return 0;
+}
+