asskoala/CKG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

first commit

Browse Source
This commit is contained in:
Jose Caban
2025-06-07 11:34:38 -04:00
commit 0eb2d7c07d
4708 changed files with 1500614 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

166
extern/stdcxx/4.2.1/tests/numerics/26.valarray.transcend.cpp vendored Normal file
View File

@@ -0,0 +1,166 @@
/***************************************************************************
*
* 26.valarray.transcend.cpp - verify [lib.valarray.transcend] requirements
*
* $Id$
*
***************************************************************************
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
* implied. See the License for the specific language governing
* permissions and limitations under the License.
*
* Copyright 1994-2008 Rogue Wave Software.
*
**************************************************************************/
// disable implicit inclusion to work around a limitation in
// IBM's VisualAge 5.0.2.0 (see PR#26959)
#if defined __IBMCPP__ && !defined _RWSTD_NO_IMPLICIT_INCLUSION
# define _RWSTD_NO_IMPLICIT_INCLUSION
#endif // defined __IBMCPP__ && !defined _RWSTD_NO_IMPLICIT_INCLUSION
#include <cmath>
#include <cstddef> // for std::size_t
#include <valarray>
#include <driver.h>
#include <valcmp.h>
/**************************************************************************/
template <class T>
static void
test_val (const char* tname)
{
#define TEST(fun) { \
rw_info (0, __FILE__, __LINE__, "template <> std::valarray<%s> " \
"std::" #fun " (std::valarray<%s>)", tname, tname); \
\
std::valarray<T> val (10); \
for (std::size_t i = 0; i != val.size (); ++i) \
val [i] = T (i); \
\
const std::valarray<T> result = std::fun (val); \
\
bool success = 10 == val.size () && val.size () == result.size (); \
\
for (std::size_t j = 0; success && j != result.size (); ++j) { \
if (!rw_equal (result [j], T (std::fun (T (j))))) \
success = false; \
} \
\
rw_assert (success, __FILE__, __LINE__, \
"template <> std::valarray<%s> std::" #fun \
"(std::valarray<%s>)", tname, tname); \
} (void)0
#define TEST_2(fun, x) { \
if (x < 0) \
rw_info (0, __FILE__, __LINE__, \
"template <> std::valarray<%s> " \
"std::" #fun " (const %s&, const std::" \
"valarray<%s>&)", tname, tname, tname); \
else if (x > 0) \
rw_info (0, __FILE__, __LINE__, \
"template <> std::valarray<%s> " \
"std::" #fun " (const std::valarray<%s>&," \
"const %s&)", tname, tname, tname); \
else \
rw_info (0, __FILE__, __LINE__, \
"template <> std::valarray<%s> " \
"std::" #fun " (const std::valarray<%s>&," \
"const std::valarray<%s>&)", tname, tname, tname); \
\
std::valarray<T> val (10); \
for (std::size_t i = 0; i != val.size (); ++i) \
val [i] = T (i); \
\
const std::valarray<T> result = \
x < 0 ? std::fun (T (x), val) \
: x > 0 ? std::fun (val, T (x)) \
: std::fun (val, val); \
\
bool success = 10 == val.size () && val.size () == result.size (); \
\
for (std::size_t j = 0; success && j != result.size (); ++j) { \
T res; \
if (x < 0) res = T (std::fun (T (x), T (j))); \
if (x > 0) res = T (std::fun (T (j), T (x))); \
if (!x) res = T (std::fun (T (j), T (j))); \
if (!rw_equal (result [j], res)) \
success = false; \
} \
\
rw_assert (success, __FILE__, __LINE__, \
"template <> std::valarray<%s> std::" #fun "(...)", \
tname); \
} (void)0
TEST (abs);
TEST (acos);
TEST (abs);
TEST (acos);
TEST (asin);
TEST (atan);
TEST_2 (atan2, -2);
TEST_2 (atan2, +3);
TEST_2 (atan2, 0);
TEST (cos);
TEST (cosh);
TEST (exp);
TEST (log);
TEST (log10);
TEST_2 (pow, -4);
TEST_2 (pow, +5);
TEST_2 (pow, 0);
TEST (sin);
TEST (sinh);
TEST (sqrt);
TEST (tan);
TEST (tanh);
}
/**************************************************************************/
static int
run_test (int /*unused*/, char* /*unused*/ [])
{
test_val<float> ("float");
test_val<double> ("double");
#ifndef _RWSTD_NO_LONG_DOUBLE
test_val<long double> ("long double");
#endif // _RWSTD_NO_LONG_DOUBLE
return 0;
}
/*extern*/ int
main (int argc, char* argv [])
{
return rw_test (argc, argv, __FILE__,
"lib.valarray.transcend",
0, // no comment
run_test, "", 0);
}