mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-08 05:54:40 +00:00
134 lines
4.3 KiB
C++
134 lines
4.3 KiB
C++
// Copyright (C) 2009-2019 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/>.
|
|
|
|
// { dg-require-effective-target dfp }
|
|
// { dg-options "-Wno-pedantic" }
|
|
|
|
// ISO/IEC TR 24733 3.2.5 Initialization from coefficient and exponent.
|
|
|
|
#include <decimal/decimal>
|
|
#include <cstring>
|
|
#include <testsuite_hooks.h>
|
|
|
|
#define PASTE2(A,B) A ## B
|
|
#define PASTE(A,B) PASTE2(A,B)
|
|
|
|
#define TESTVAL_NEG(COEFF,ESIGN,EXP,SUF,NUM,SIZE) \
|
|
x = PASTE(PASTE(PASTE(PASTE(PASTE(COEFF,.),E),ESIGN),EXP),SUF); \
|
|
sll = PASTE(COEFF,LL); \
|
|
i = ESIGN EXP; \
|
|
a = PASTE(make_decimal,32) (sll, i); \
|
|
b = PASTE(make_decimal,32) (PASTE(COEFF,LL), ESIGN EXP); \
|
|
VERIFY ((std::memcmp ((void *)&x, (void *)&a, SIZE) == 0) \
|
|
&& (std::memcmp ((void *)&x, (void *)&b,SIZE) == 0));
|
|
|
|
#define TESTVAL_NONNEG(COEFF,ESIGN,EXP,SUF,NUM,SIZE) \
|
|
x = PASTE(PASTE(PASTE(PASTE(PASTE(COEFF,.),E),ESIGN),EXP),SUF); \
|
|
sll = PASTE(COEFF,LL); \
|
|
ull = PASTE(COEFF,ULL); \
|
|
i = ESIGN EXP; \
|
|
a = PASTE(make_decimal,32) (sll, i); \
|
|
b = PASTE(make_decimal,32) (PASTE(COEFF,LL), ESIGN EXP); \
|
|
c = PASTE(make_decimal,32) (ull, i); \
|
|
d = PASTE(make_decimal,32) (PASTE(COEFF,ULL), ESIGN EXP); \
|
|
VERIFY ((std::memcmp ((void *)&x, (void *)&a, SIZE) == 0) \
|
|
&& (std::memcmp ((void *)&x, (void *)&b,SIZE) == 0) \
|
|
&& (std::memcmp ((void *)&x, (void *)&c,SIZE) == 0) \
|
|
&& (std::memcmp ((void *)&x, (void *)&d,SIZE) == 0));
|
|
|
|
using namespace std::decimal;
|
|
|
|
void
|
|
make_decimal_32 (void)
|
|
{
|
|
decimal32 a, b, c, d;
|
|
float x __attribute__((mode(SD)));
|
|
int i;
|
|
unsigned long sz = sizeof (decimal32);
|
|
volatile long long sll;
|
|
volatile unsigned long long ull;
|
|
|
|
TESTVAL_NONNEG (0, +, 0, DF, 32, sz);
|
|
TESTVAL_NONNEG (5, +, 1, DF, 32, sz);
|
|
TESTVAL_NONNEG (50, +, 0, DF, 32, sz);
|
|
TESTVAL_NONNEG (500, +, 0, DF, 32, sz);
|
|
TESTVAL_NEG (-25, -, 3, DF, 32, sz)
|
|
TESTVAL_NEG (-500, +, 0, DF, 32, sz);
|
|
TESTVAL_NONNEG (999999, +, 91, DF, 32, sz);
|
|
TESTVAL_NONNEG (1, -, 9, DF, 32, sz);
|
|
TESTVAL_NONNEG (1, -, 90, DF, 32, sz);
|
|
TESTVAL_NONNEG (1, -, 95, DF, 32, sz);
|
|
TESTVAL_NONNEG (1, -, 101, DF, 32, sz);
|
|
TESTVAL_NEG (-1, -, 101, DF, 32, sz);
|
|
}
|
|
|
|
void
|
|
make_decimal_64 (void)
|
|
{
|
|
decimal64 a, b, c, d;
|
|
float x __attribute__((mode(DD)));
|
|
int i;
|
|
unsigned long sz = sizeof (decimal64);
|
|
volatile long long sll;
|
|
volatile unsigned long long ull;
|
|
|
|
TESTVAL_NONNEG (0, +, 0, DF, 64, sz);
|
|
TESTVAL_NONNEG (5, +, 1, DF, 64, sz);
|
|
TESTVAL_NONNEG (50, +, 0, DF, 64, sz);
|
|
TESTVAL_NONNEG (500, +, 0, DF, 64, sz);
|
|
TESTVAL_NEG (-25, -, 3, DF, 64, sz)
|
|
TESTVAL_NEG (-500, +, 0, DF, 64, sz);
|
|
TESTVAL_NONNEG (999999, +, 91, DF, 64, sz);
|
|
TESTVAL_NONNEG (1, -, 9, DF, 64, sz);
|
|
TESTVAL_NONNEG (1, -, 90, DF, 64, sz);
|
|
TESTVAL_NONNEG (1, -, 95, DF, 64, sz);
|
|
TESTVAL_NONNEG (1, -, 101, DF, 64, sz);
|
|
TESTVAL_NEG (-1, -, 101, DF, 64, sz);
|
|
}
|
|
|
|
void
|
|
make_decimal_128 (void)
|
|
{
|
|
decimal128 a, b, c, d;
|
|
float x __attribute__((mode(TD)));
|
|
int i;
|
|
unsigned long sz = sizeof (decimal128);
|
|
volatile long long sll;
|
|
volatile unsigned long long ull;
|
|
|
|
TESTVAL_NONNEG (0, +, 0, DF, 128, sz);
|
|
TESTVAL_NONNEG (5, +, 1, DF, 128, sz);
|
|
TESTVAL_NONNEG (50, +, 0, DF, 128, sz);
|
|
TESTVAL_NONNEG (500, +, 0, DF, 128, sz);
|
|
TESTVAL_NEG (-25, -, 3, DF, 128, sz)
|
|
TESTVAL_NEG (-500, +, 0, DF, 128, sz);
|
|
TESTVAL_NONNEG (999999, +, 91, DF, 128, sz);
|
|
TESTVAL_NONNEG (1, -, 9, DF, 128, sz);
|
|
TESTVAL_NONNEG (1, -, 90, DF, 128, sz);
|
|
TESTVAL_NONNEG (1, -, 95, DF, 128, sz);
|
|
TESTVAL_NONNEG (1, -, 101, DF, 128, sz);
|
|
TESTVAL_NEG (-1, -, 101, DF, 128, sz);
|
|
}
|
|
|
|
int
|
|
main ()
|
|
{
|
|
make_decimal_32 ();
|
|
make_decimal_64 ();
|
|
make_decimal_128 ();
|
|
}
|