libstdc++-v3/testsuite/special_functions/13_ellint_3/check_nan.cc

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