tests/test-math-c++.cc

   1 /* Test of <math.h> substitute in C++ mode.
   2    Copyright (C) 2010-2014 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 <http://www.gnu.org/licenses/>.  */
  16
  17 /* Written by Bruno Haible <bruno@clisp.org>, 2010.  */
  18
  19 #define GNULIB_NAMESPACE gnulib
  20 #include <config.h>
  21
  22 #include <math.h>
  23
  24 #include "signature.h"
  25
  26 /* Signature check for a function that takes a real-floating argument.
  27    Check that each overloaded function with the specified signature exists.  */
  28 #define REAL_FLOATING_CHECK(func,\
  29                             rettype1, parameters1,\
  30                             rettype2, parameters2,\
  31                             rettype3, parameters3) \
  32   OVERLOADED_CHECK (func, rettype1, parameters1, _1); \
  33   OVERLOADED_CHECK (func, rettype2, parameters2, _2); \
  34   OVERLOADED_CHECK (func, rettype3, parameters3, _3)
  35 #define OVERLOADED_CHECK(func, rettype, parameters, suffix) \
  36   static rettype (* _GL_UNUSED signature_check_ ## func ## suffix) parameters \
  37     = static_cast<rettype(*)parameters>(func)
  38
  39
  40 /* Keep these checks in the same order as math.in.h!  */
  41
  42 #if GNULIB_TEST_ACOSF
  43 SIGNATURE_CHECK (GNULIB_NAMESPACE::acosf, float, (float));
  44 #endif
  45 //SIGNATURE_CHECK (GNULIB_NAMESPACE::acos, double, (double));
  46 #if GNULIB_TEST_ACOSL
  47 SIGNATURE_CHECK (GNULIB_NAMESPACE::acosl, long double, (long double));
  48 #endif
  49
  50 #if GNULIB_TEST_ASINF
  51 SIGNATURE_CHECK (GNULIB_NAMESPACE::asinf, float, (float));
  52 #endif
  53 //SIGNATURE_CHECK (GNULIB_NAMESPACE::asin, double, (double));
  54 #if GNULIB_TEST_ASINL
  55 SIGNATURE_CHECK (GNULIB_NAMESPACE::asinl, long double, (long double));
  56 #endif
  57
  58 #if GNULIB_TEST_ATANF
  59 SIGNATURE_CHECK (GNULIB_NAMESPACE::atanf, float, (float));
  60 #endif
  61 //SIGNATURE_CHECK (GNULIB_NAMESPACE::atan, double, (double));
  62 #if GNULIB_TEST_ATANL
  63 SIGNATURE_CHECK (GNULIB_NAMESPACE::atanl, long double, (long double));
  64 #endif
  65
  66 #if GNULIB_TEST_ATAN2F
  67 SIGNATURE_CHECK (GNULIB_NAMESPACE::atan2f, float, (float, float));
  68 #endif
  69 //SIGNATURE_CHECK (GNULIB_NAMESPACE::atan2, double, (double, double));
  70
  71 #if GNULIB_TEST_CBRTF
  72 SIGNATURE_CHECK (GNULIB_NAMESPACE::cbrtf, float, (float));
  73 #endif
  74 #if GNULIB_TEST_CBRT
  75 SIGNATURE_CHECK (GNULIB_NAMESPACE::cbrt, double, (double));
  76 #endif
  77 #if GNULIB_TEST_CBRTL
  78 SIGNATURE_CHECK (GNULIB_NAMESPACE::cbrtl, long double, (long double));
  79 #endif
  80
  81 #if GNULIB_TEST_CEILF
  82 SIGNATURE_CHECK (GNULIB_NAMESPACE::ceilf, float, (float));
  83 #endif
  84 #if GNULIB_TEST_CEIL
  85 SIGNATURE_CHECK (GNULIB_NAMESPACE::ceil, double, (double));
  86 #endif
  87 #if GNULIB_TEST_CEILL
  88 SIGNATURE_CHECK (GNULIB_NAMESPACE::ceill, long double, (long double));
  89 #endif
  90
  91 #if GNULIB_TEST_COPYSIGNF
  92 SIGNATURE_CHECK (GNULIB_NAMESPACE::copysignf, float, (float, float));
  93 #endif
  94 #if GNULIB_TEST_COPYSIGN
  95 SIGNATURE_CHECK (GNULIB_NAMESPACE::copysign, double, (double, double));
  96 #endif
  97 #if GNULIB_TEST_COPYSIGNL
  98 SIGNATURE_CHECK (GNULIB_NAMESPACE::copysignl, long double,
  99                  (long double, long double));
 100 #endif
 101
 102 #if GNULIB_TEST_COSF
 103 SIGNATURE_CHECK (GNULIB_NAMESPACE::cosf, float, (float));
 104 #endif
 105 //SIGNATURE_CHECK (GNULIB_NAMESPACE::cos, double, (double));
 106 #if GNULIB_TEST_COSL
 107 SIGNATURE_CHECK (GNULIB_NAMESPACE::cosl, long double, (long double));
 108 #endif
 109
 110 #if GNULIB_TEST_COSHF
 111 SIGNATURE_CHECK (GNULIB_NAMESPACE::coshf, float, (float));
 112 #endif
 113 //SIGNATURE_CHECK (GNULIB_NAMESPACE::cosh, double, (double));
 114
 115 //SIGNATURE_CHECK (GNULIB_NAMESPACE::erf, double, (double));
 116
 117 //SIGNATURE_CHECK (GNULIB_NAMESPACE::erfc, double, (double));
 118
 119 #if GNULIB_TEST_EXPF
 120 SIGNATURE_CHECK (GNULIB_NAMESPACE::expf, float, (float));
 121 #endif
 122 //SIGNATURE_CHECK (GNULIB_NAMESPACE::exp, double, (double));
 123 #if GNULIB_TEST_EXPL
 124 SIGNATURE_CHECK (GNULIB_NAMESPACE::expl, long double, (long double));
 125 #endif
 126
 127 #if GNULIB_TEST_EXP2F
 128 SIGNATURE_CHECK (GNULIB_NAMESPACE::exp2f, float, (float));
 129 #endif
 130 #if GNULIB_TEST_EXP2
 131 SIGNATURE_CHECK (GNULIB_NAMESPACE::exp2, double, (double));
 132 #endif
 133 #if GNULIB_TEST_EXP2L
 134 SIGNATURE_CHECK (GNULIB_NAMESPACE::exp2l, long double, (long double));
 135 #endif
 136
 137 #if GNULIB_TEST_EXPM1F
 138 SIGNATURE_CHECK (GNULIB_NAMESPACE::expm1f, float, (float));
 139 #endif
 140 #if GNULIB_TEST_EXPM1
 141 SIGNATURE_CHECK (GNULIB_NAMESPACE::expm1, double, (double));
 142 #endif
 143 #if GNULIB_TEST_EXPM1L
 144 SIGNATURE_CHECK (GNULIB_NAMESPACE::expm1l, long double, (long double));
 145 #endif
 146
 147 #if GNULIB_TEST_FABSF
 148 SIGNATURE_CHECK (GNULIB_NAMESPACE::fabsf, float, (float));
 149 #endif
 150 //SIGNATURE_CHECK (GNULIB_NAMESPACE::fabs, double, (double));
 151 #if GNULIB_TEST_FABSL
 152 SIGNATURE_CHECK (GNULIB_NAMESPACE::fabsl, long double, (long double));
 153 #endif
 154
 155 #if GNULIB_TEST_FLOORF
 156 SIGNATURE_CHECK (GNULIB_NAMESPACE::floorf, float, (float));
 157 #endif
 158 #if GNULIB_TEST_FLOOR
 159 SIGNATURE_CHECK (GNULIB_NAMESPACE::floor, double, (double));
 160 #endif
 161 #if GNULIB_TEST_FLOORL
 162 SIGNATURE_CHECK (GNULIB_NAMESPACE::floorl, long double, (long double));
 163 #endif
 164
 165 #if GNULIB_TEST_FMODF
 166 SIGNATURE_CHECK (GNULIB_NAMESPACE::fmodf, float, (float, float));
 167 #endif
 168 #if GNULIB_TEST_FMOD
 169 SIGNATURE_CHECK (GNULIB_NAMESPACE::fmod, double, (double, double));
 170 #endif
 171 #if GNULIB_TEST_FMODL
 172 SIGNATURE_CHECK (GNULIB_NAMESPACE::fmodl, long double,
 173                  (long double, long double));
 174 #endif
 175
 176 #if GNULIB_TEST_FREXPF
 177 SIGNATURE_CHECK (GNULIB_NAMESPACE::frexpf, float, (float, int *));
 178 #endif
 179 #if GNULIB_TEST_FREXP
 180 SIGNATURE_CHECK (GNULIB_NAMESPACE::frexp, double, (double, int *));
 181 #endif
 182 #if GNULIB_TEST_FREXPL
 183 SIGNATURE_CHECK (GNULIB_NAMESPACE::frexpl, long double, (long double, int *));
 184 #endif
 185
 186 #if GNULIB_TEST_HYPOTF
 187 SIGNATURE_CHECK (GNULIB_NAMESPACE::hypotf, float, (float, float));
 188 #endif
 189 #if GNULIB_TEST_HYPOT
 190 SIGNATURE_CHECK (GNULIB_NAMESPACE::hypot, double, (double, double));
 191 #endif
 192 #if GNULIB_TEST_HYPOTL
 193 SIGNATURE_CHECK (GNULIB_NAMESPACE::hypotl, long double,
 194                  (long double, long double));
 195 #endif
 196
 197 #if GNULIB_TEST_ILOGBF
 198 SIGNATURE_CHECK (GNULIB_NAMESPACE::ilogbf, int, (float));
 199 #endif
 200 #if GNULIB_TEST_ILOGB
 201 SIGNATURE_CHECK (GNULIB_NAMESPACE::ilogb, int, (double));
 202 #endif
 203 #if GNULIB_TEST_ILOGBL
 204 SIGNATURE_CHECK (GNULIB_NAMESPACE::ilogbl, int, (long double));
 205 #endif
 206
 207 //SIGNATURE_CHECK (GNULIB_NAMESPACE::j0, double, (double));
 208
 209 //SIGNATURE_CHECK (GNULIB_NAMESPACE::j1, double, (double));
 210
 211 //SIGNATURE_CHECK (GNULIB_NAMESPACE::jn, double, (int, double));
 212
 213 #if GNULIB_TEST_LDEXPF
 214 SIGNATURE_CHECK (GNULIB_NAMESPACE::ldexpf, float, (float, int));
 215 #endif
 216 //SIGNATURE_CHECK (GNULIB_NAMESPACE::ldexp, double, (double, int));
 217 #if GNULIB_TEST_LDEXPL
 218 SIGNATURE_CHECK (GNULIB_NAMESPACE::ldexpl, long double, (long double, int));
 219 #endif
 220
 221 //SIGNATURE_CHECK (GNULIB_NAMESPACE::lgamma, double, (double));
 222
 223 #if GNULIB_TEST_LOG10
 224 SIGNATURE_CHECK (GNULIB_NAMESPACE::log10, double, (double));
 225 #endif
 226 #if GNULIB_TEST_LOG10L
 227 SIGNATURE_CHECK (GNULIB_NAMESPACE::log10l, long double, (long double));
 228 #endif
 229
 230 #if GNULIB_TEST_LOG1PF
 231 SIGNATURE_CHECK (GNULIB_NAMESPACE::log1pf, float, (float));
 232 #endif
 233 #if GNULIB_TEST_LOG1P
 234 SIGNATURE_CHECK (GNULIB_NAMESPACE::log1p, double, (double));
 235 #endif
 236 #if GNULIB_TEST_LOG1PL
 237 SIGNATURE_CHECK (GNULIB_NAMESPACE::log1pl, long double, (long double));
 238 #endif
 239
 240 #if GNULIB_TEST_LOGF
 241 SIGNATURE_CHECK (GNULIB_NAMESPACE::logf, float, (float));
 242 #endif
 243 #if GNULIB_TEST_LOG
 244 SIGNATURE_CHECK (GNULIB_NAMESPACE::log, double, (double));
 245 #endif
 246 #if GNULIB_TEST_LOGL
 247 SIGNATURE_CHECK (GNULIB_NAMESPACE::logl, long double, (long double));
 248 #endif
 249
 250 #if GNULIB_TEST_LOG10F
 251 SIGNATURE_CHECK (GNULIB_NAMESPACE::log10f, float, (float));
 252 #endif
 253
 254 #if GNULIB_TEST_LOG2F
 255 SIGNATURE_CHECK (GNULIB_NAMESPACE::log2f, float, (float));
 256 #endif
 257 #if GNULIB_TEST_LOG2
 258 SIGNATURE_CHECK (GNULIB_NAMESPACE::log2, double, (double));
 259 #endif
 260 #if GNULIB_TEST_LOG2L
 261 SIGNATURE_CHECK (GNULIB_NAMESPACE::log2l, long double, (long double));
 262 #endif
 263
 264 #if GNULIB_TEST_LOGBF
 265 SIGNATURE_CHECK (GNULIB_NAMESPACE::logbf, float, (float));
 266 #endif
 267 #if GNULIB_TEST_LOGB
 268 SIGNATURE_CHECK (GNULIB_NAMESPACE::logb, double, (double));
 269 #endif
 270 #if GNULIB_TEST_LOGBL
 271 SIGNATURE_CHECK (GNULIB_NAMESPACE::logbl, long double, (long double));
 272 #endif
 273
 274 #if GNULIB_TEST_MODFF
 275 SIGNATURE_CHECK (GNULIB_NAMESPACE::modff, float, (float, float *));
 276 #endif
 277 #if GNULIB_TEST_MODF
 278 SIGNATURE_CHECK (GNULIB_NAMESPACE::modf, double, (double, double *));
 279 #endif
 280 #if GNULIB_TEST_MODFL
 281 SIGNATURE_CHECK (GNULIB_NAMESPACE::modfl, long double,
 282                  (long double, long double *));
 283 #endif
 284
 285 //SIGNATURE_CHECK (GNULIB_NAMESPACE::nextafter, double, (double, double));
 286
 287 #if GNULIB_TEST_POWF
 288 SIGNATURE_CHECK (GNULIB_NAMESPACE::powf, float, (float, float));
 289 #endif
 290 //SIGNATURE_CHECK (GNULIB_NAMESPACE::pow, double, (double, double));
 291
 292 #if GNULIB_TEST_REMAINDERF
 293 SIGNATURE_CHECK (GNULIB_NAMESPACE::remainderf, float, (float, float));
 294 #endif
 295 #if GNULIB_TEST_REMAINDER
 296 SIGNATURE_CHECK (GNULIB_NAMESPACE::remainder, double, (double, double));
 297 #endif
 298 #if GNULIB_TEST_REMAINDERL
 299 SIGNATURE_CHECK (GNULIB_NAMESPACE::remainderl, long double,
 300                  (long double, long double));
 301 #endif
 302
 303 #if GNULIB_TEST_RINTF
 304 SIGNATURE_CHECK (GNULIB_NAMESPACE::rintf, float, (float));
 305 #endif
 306 #if GNULIB_TEST_RINT
 307 SIGNATURE_CHECK (GNULIB_NAMESPACE::rint, double, (double));
 308 #endif
 309 #if GNULIB_TEST_RINTL
 310 SIGNATURE_CHECK (GNULIB_NAMESPACE::rintl, long double, (long double));
 311 #endif
 312
 313 #if GNULIB_TEST_ROUNDF
 314 SIGNATURE_CHECK (GNULIB_NAMESPACE::roundf, float, (float));
 315 #endif
 316 #if GNULIB_TEST_ROUND
 317 SIGNATURE_CHECK (GNULIB_NAMESPACE::round, double, (double));
 318 #endif
 319 #if GNULIB_TEST_ROUNDL
 320 SIGNATURE_CHECK (GNULIB_NAMESPACE::roundl, long double, (long double));
 321 #endif
 322
 323 #if GNULIB_TEST_SINF
 324 SIGNATURE_CHECK (GNULIB_NAMESPACE::sinf, float, (float));
 325 #endif
 326 //SIGNATURE_CHECK (GNULIB_NAMESPACE::sin, double, (double));
 327 #if GNULIB_TEST_SINL
 328 SIGNATURE_CHECK (GNULIB_NAMESPACE::sinl, long double, (long double));
 329 #endif
 330
 331 #if GNULIB_TEST_SINHF
 332 SIGNATURE_CHECK (GNULIB_NAMESPACE::sinhf, float, (float));
 333 #endif
 334 //SIGNATURE_CHECK (GNULIB_NAMESPACE::sinh, double, (double));
 335
 336 #if GNULIB_TEST_SQRTF
 337 SIGNATURE_CHECK (GNULIB_NAMESPACE::sqrtf, float, (float));
 338 #endif
 339 //SIGNATURE_CHECK (GNULIB_NAMESPACE::sqrt, double, (double));
 340 #if GNULIB_TEST_SQRTL
 341 SIGNATURE_CHECK (GNULIB_NAMESPACE::sqrtl, long double, (long double));
 342 #endif
 343
 344 #if GNULIB_TEST_TANF
 345 SIGNATURE_CHECK (GNULIB_NAMESPACE::tanf, float, (float));
 346 #endif
 347 //SIGNATURE_CHECK (GNULIB_NAMESPACE::tan, double, (double));
 348 #if GNULIB_TEST_TANL
 349 SIGNATURE_CHECK (GNULIB_NAMESPACE::tanl, long double, (long double));
 350 #endif
 351
 352 #if GNULIB_TEST_TANHF
 353 SIGNATURE_CHECK (GNULIB_NAMESPACE::tanhf, float, (float));
 354 #endif
 355 //SIGNATURE_CHECK (GNULIB_NAMESPACE::tanh, double, (double));
 356
 357 #if GNULIB_TEST_TRUNCF
 358 SIGNATURE_CHECK (GNULIB_NAMESPACE::truncf, float, (float));
 359 #endif
 360 #if GNULIB_TEST_TRUNC
 361 SIGNATURE_CHECK (GNULIB_NAMESPACE::trunc, double, (double));
 362 #endif
 363 #if GNULIB_TEST_TRUNCL
 364 SIGNATURE_CHECK (GNULIB_NAMESPACE::truncl, long double, (long double));
 365 #endif
 366
 367 //SIGNATURE_CHECK (GNULIB_NAMESPACE::y0, double, (double));
 368
 369 //SIGNATURE_CHECK (GNULIB_NAMESPACE::y1, double, (double));
 370
 371 //SIGNATURE_CHECK (GNULIB_NAMESPACE::yn, double, (int, double));
 372
 373 #if GNULIB_TEST_ISFINITE
 374 # ifdef isfinite
 375 #  error "isfinite should not be a macro in C++"
 376 # endif
 377 REAL_FLOATING_CHECK (isfinite, int, (float), int, (double), int, (long double));
 378 #endif
 379
 380 #if GNULIB_TEST_ISINF
 381 # ifdef isinf
 382 #  error "isinf should not be a macro in C++"
 383 # endif
 384 REAL_FLOATING_CHECK (isinf, int, (float), int, (double), int, (long double));
 385 #endif
 386
 387 #if GNULIB_TEST_ISNAN
 388 # ifdef isnan
 389 #  error "isnan should not be a macro in C++"
 390 # endif
 391 REAL_FLOATING_CHECK (isnan, int, (float), int, (double), int, (long double));
 392 #endif
 393
 394 #if GNULIB_TEST_SIGNBIT
 395 # ifdef signbit
 396 #  error "signbit should not be a macro in C++"
 397 # endif
 398 REAL_FLOATING_CHECK (signbit, int, (float), int, (double), int, (long double));
 399 #endif
 400
 401
 402 int
 403 main ()
 404 {
 405 }