libstdc++-v3/testsuite/tr1/5_numerical_facilities/special_functions/07_conf_hyperg/check_nan.cc

   1 // { dg-require-c-std "" }
   2 // { dg-add-options ieee }
   3
   4 // 2007-01-10  Edward Smith-Rowland <3dw4rd@verizon.net>
   5 //
   6 // Copyright (C) 2007-2022 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 // 5.2.1.7 conf_hyperg
  24
  25 #include <tr1/cmath>
  26 #include <testsuite_hooks.h>
  27
  28 void
  29 test01()
  30 {
  31   float af = std::numeric_limits<float>::quiet_NaN();
  32   double ad = std::numeric_limits<double>::quiet_NaN();
  33   long double al = std::numeric_limits<long double>::quiet_NaN();
  34
  35   float cf = 3.0F;
  36   double cd = 3.0;
  37   long double cl = 3.0L;
  38
  39   float xf = 0.5F;
  40   double xd = 0.5;
  41   long double xl = 0.5L;
  42
  43   float a = std::tr1::conf_hyperg(af, cf, xf);
  44   float b = std::tr1::conf_hypergf(af, cf, xf);
  45   double c = std::tr1::conf_hyperg(ad, cd, xd);
  46   long double d = std::tr1::conf_hyperg(al, cl, xl);
  47   long double e = std::tr1::conf_hypergl(al, cl, xl);
  48
  49   VERIFY(std::tr1::isnan<float>(a));
  50   VERIFY(std::tr1::isnan<float>(b));
  51   VERIFY(std::tr1::isnan<double>(c));
  52   VERIFY(std::tr1::isnan<long double>(d));
  53   VERIFY(std::tr1::isnan<long double>(e));
  54
  55   return;
  56 }
  57
  58 void
  59 test02()
  60 {
  61   float af = 2.0F;
  62   double ad = 2.0;
  63   long double al = 2.0L;
  64
  65   float cf = std::numeric_limits<float>::quiet_NaN();
  66   double cd = std::numeric_limits<double>::quiet_NaN();
  67   long double cl = std::numeric_limits<long double>::quiet_NaN();
  68
  69   float xf = 0.5F;
  70   double xd = 0.5;
  71   long double xl = 0.5L;
  72
  73   float a = std::tr1::conf_hyperg(af, cf, xf);
  74   float b = std::tr1::conf_hypergf(af, cf, xf);
  75   double c = std::tr1::conf_hyperg(ad, cd, xd);
  76   long double d = std::tr1::conf_hyperg(al, cl, xl);
  77   long double e = std::tr1::conf_hypergl(al, cl, xl);
  78
  79   VERIFY(std::tr1::isnan<float>(a));
  80   VERIFY(std::tr1::isnan<float>(b));
  81   VERIFY(std::tr1::isnan<double>(c));
  82   VERIFY(std::tr1::isnan<long double>(d));
  83   VERIFY(std::tr1::isnan<long double>(e));
  84
  85   return;
  86 }
  87
  88 void
  89 test03()
  90 {
  91   float af = 2.0F;
  92   double ad = 2.0;
  93   long double al = 2.0L;
  94
  95   float cf = 3.0F;
  96   double cd = 3.0;
  97   long double cl = 3.0L;
  98
  99   float xf = std::numeric_limits<float>::quiet_NaN();
 100   double xd = std::numeric_limits<double>::quiet_NaN();
 101   long double xl = std::numeric_limits<long double>::quiet_NaN();
 102
 103   float a = std::tr1::conf_hyperg(af, cf, xf);
 104   float b = std::tr1::conf_hypergf(af, cf, xf);
 105   double c = std::tr1::conf_hyperg(ad, cd, xd);
 106   long double d = std::tr1::conf_hyperg(al, cl, xl);
 107   long double e = std::tr1::conf_hypergl(al, cl, xl);
 108
 109   VERIFY(std::tr1::isnan<float>(a));
 110   VERIFY(std::tr1::isnan<float>(b));
 111   VERIFY(std::tr1::isnan<double>(c));
 112   VERIFY(std::tr1::isnan<long double>(d));
 113   VERIFY(std::tr1::isnan<long double>(e));
 114
 115   return;
 116 }
 117
 118 int
 119 main()
 120 {
 121   test01();
 122   test02();
 123   test03();
 124   return 0;
 125 }
 126