Github_Repos/cvw
1
0
Fork 1
mirror of https://github.com/openhwgroup/cvw synced 2025-02-02 09:45:18 +00:00
Code Issues Packages Projects Releases Wiki Activity
b0507b96b0
cvw/wally-pipelined/testbench/fp/TestFloat-3e/source/verLoops.c
David Harris 626780381a Included TestFloat and SoftFloat
2021-10-07 23:03:45 -04:00

5284 lines
163 KiB
C
Raw Blame History

/*============================================================================
This C source file is part of TestFloat, Release 3e, a package of programs for
testing the correctness of floating-point arithmetic complying with the IEEE
Standard for Floating-Point, by John R. Hauser.
Copyright 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018 The Regents of the
University of California. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
1. Redistributions of source code must retain the above copyright notice,
this list of conditions, and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright notice,
this list of conditions, and the following disclaimer in the documentation
and/or other materials provided with the distribution.
3. Neither the name of the University nor the names of its contributors may
be used to endorse or promote products derived from this software without
specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS "AS IS", AND ANY
EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, ARE
DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY
DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
=============================================================================*/
#include <stdbool.h>
#include <stdint.h>
#include <stdlib.h>
#include <stdio.h>
#include "platform.h"
#include "uint128.h"
#include "fail.h"
#include "softfloat.h"
#include "readHex.h"
#include "verCases.h"
#include "writeCase.h"
#include "verLoops.h"
uint_fast8_t *verLoops_trueFlagsPtr;
static bool atEndOfInput( void )
{
int i;
i = fgetc( stdin );
if ( i == EOF ) {
if ( ! ferror( stdin ) && feof( stdin ) ) return true;
fail( "Error reading input" );
}
ungetc( i, stdin );
return false;
}
static void failFromBadInput( void )
{
fail( "Invalid input format" );
}
static void readVerInput_bool( bool *aPtr )
{
if ( ! readHex_bool( aPtr, ' ' ) ) failFromBadInput();
}
static void readVerInput_ui32( uint_fast32_t *aPtr )
{
uint32_t a;
if ( ! readHex_ui32( &a, ' ' ) ) failFromBadInput();
*aPtr = a;
}
static void readVerInput_ui64( uint_fast64_t *aPtr )
{
uint64_t a;
if ( ! readHex_ui64( &a, ' ' ) ) failFromBadInput();
*aPtr = a;
}
static void readVerInput_i32( int_fast32_t *aPtr )
{
union { uint32_t ui; int32_t i; } uA;
if ( ! readHex_ui32( &uA.ui, ' ' ) ) failFromBadInput();
*aPtr = uA.i;
}
static void readVerInput_i64( int_fast64_t *aPtr )
{
union { uint64_t ui; int64_t i; } uA;
if ( ! readHex_ui64( &uA.ui, ' ' ) ) failFromBadInput();
*aPtr = uA.i;
}
#ifdef FLOAT16
static void readVerInput_f16( float16_t *aPtr )
{
union { uint16_t ui; float16_t f; } uA;
if ( ! readHex_ui16( &uA.ui, ' ' ) ) failFromBadInput();
*aPtr = uA.f;
}
#endif
static void readVerInput_f32( float32_t *aPtr )
{
union { uint32_t ui; float32_t f; } uA;
if ( ! readHex_ui32( &uA.ui, ' ' ) ) failFromBadInput();
*aPtr = uA.f;
}
#ifdef FLOAT64
static void readVerInput_f64( float64_t *aPtr )
{
union { uint64_t ui; float64_t f; } uA;
if ( ! readHex_ui64( &uA.ui, ' ' ) ) failFromBadInput();
*aPtr = uA.f;
}
#endif
#ifdef EXTFLOAT80
static void readVerInput_extF80( extFloat80_t *aPtr )
{
struct extFloat80M *aSPtr;
aSPtr = (struct extFloat80M *) aPtr;
if (
! readHex_ui16( &aSPtr->signExp, 0 )
|| ! readHex_ui64( &aSPtr->signif, ' ' )
) {
failFromBadInput();
}
}
#endif
#ifdef FLOAT128
static void readVerInput_f128( float128_t *aPtr )
{
struct uint128 *uiAPtr;
uiAPtr = (struct uint128 *) aPtr;
if (
! readHex_ui64( &uiAPtr->v64, 0 ) || ! readHex_ui64( &uiAPtr->v0, ' ' )
) {
failFromBadInput();
}
}
#endif
static void readVerInput_flags( uint_fast8_t *flagsPtr )
{
uint_least8_t commonFlags;
uint_fast8_t flags;
if ( ! readHex_ui8( &commonFlags, '\n' ) || (0x20 <= commonFlags) ) {
failFromBadInput();
}
flags = 0;
if ( commonFlags & 0x10 ) flags |= softfloat_flag_invalid;
if ( commonFlags & 0x08 ) flags |= softfloat_flag_infinite;
if ( commonFlags & 0x04 ) flags |= softfloat_flag_overflow;
if ( commonFlags & 0x02 ) flags |= softfloat_flag_underflow;
if ( commonFlags & 0x01 ) flags |= softfloat_flag_inexact;
*flagsPtr = flags;
}
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef FLOAT16
void ver_a_ui32_z_f16( float16_t trueFunction( uint32_t ) )
{
int count;
uint_fast32_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui32( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui32( a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_a_ui32_z_f32( float32_t trueFunction( uint32_t ) )
{
int count;
uint_fast32_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui32( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui32( a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT64
void ver_a_ui32_z_f64( float64_t trueFunction( uint32_t ) )
{
int count;
uint_fast32_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui32( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui32( a, " " );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef EXTFLOAT80
void ver_a_ui32_z_extF80( void trueFunction( uint32_t, extFloat80_t * ) )
{
int count;
uint_fast32_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui32( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui32( a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void ver_a_ui32_z_f128( void trueFunction( uint32_t, float128_t * ) )
{
int count;
uint_fast32_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui32( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui32( a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef FLOAT16
void ver_a_ui64_z_f16( float16_t trueFunction( uint64_t ) )
{
int count;
uint_fast64_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui64( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui64( a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_a_ui64_z_f32( float32_t trueFunction( uint64_t ) )
{
int count;
uint_fast64_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui64( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui64( a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT64
void ver_a_ui64_z_f64( float64_t trueFunction( uint64_t ) )
{
int count;
uint_fast64_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui64( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui64( a, "\n\t" );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef EXTFLOAT80
void ver_a_ui64_z_extF80( void trueFunction( uint64_t, extFloat80_t * ) )
{
int count;
uint_fast64_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui64( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui64( a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void ver_a_ui64_z_f128( void trueFunction( uint64_t, float128_t * ) )
{
int count;
uint_fast64_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_ui64( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_ui64( a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef FLOAT16
void ver_a_i32_z_f16( float16_t trueFunction( int32_t ) )
{
int count;
int_fast32_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i32( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i32( a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_a_i32_z_f32( float32_t trueFunction( int32_t ) )
{
int count;
int_fast32_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i32( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i32( a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT64
void ver_a_i32_z_f64( float64_t trueFunction( int32_t ) )
{
int count;
int_fast32_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i32( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i32( a, " " );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef EXTFLOAT80
void ver_a_i32_z_extF80( void trueFunction( int32_t, extFloat80_t * ) )
{
int count;
int_fast32_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i32( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i32( a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void ver_a_i32_z_f128( void trueFunction( int32_t, float128_t * ) )
{
int count;
int_fast32_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i32( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i32( a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef FLOAT16
void ver_a_i64_z_f16( float16_t trueFunction( int64_t ) )
{
int count;
int_fast64_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i64( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i64( a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_a_i64_z_f32( float32_t trueFunction( int64_t ) )
{
int count;
int_fast64_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i64( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i64( a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT64
void ver_a_i64_z_f64( float64_t trueFunction( int64_t ) )
{
int count;
int_fast64_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i64( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i64( a, "\n\t" );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef EXTFLOAT80
void ver_a_i64_z_extF80( void trueFunction( int64_t, extFloat80_t * ) )
{
int count;
int_fast64_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i64( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i64( a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void ver_a_i64_z_f128( void trueFunction( int64_t, float128_t * ) )
{
int count;
int_fast64_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_i64( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_i64( a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef FLOAT16
void
ver_a_f16_z_ui32_rx(
uint_fast32_t trueFunction( float16_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float16_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f16_z_ui64_rx(
uint_fast64_t trueFunction( float16_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float16_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f16_z_i32_rx(
int_fast32_t trueFunction( float16_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float16_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f16_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f16_z_i64_rx(
int_fast64_t trueFunction( float16_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float16_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f16_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f16_z_ui32_x(
uint_fast32_t trueFunction( float16_t, bool ), bool exact )
{
int count;
float16_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f16_z_ui64_x(
uint_fast64_t trueFunction( float16_t, bool ), bool exact )
{
int count;
float16_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f16_z_i32_x(
int_fast32_t trueFunction( float16_t, bool ), bool exact )
{
int count;
float16_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f16_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f16_z_i64_x(
int_fast64_t trueFunction( float16_t, bool ), bool exact )
{
int count;
float16_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f16_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_a_f16_z_f32( float32_t trueFunction( float16_t ) )
{
int count;
float16_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f16_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT64
void ver_a_f16_z_f64( float64_t trueFunction( float16_t ) )
{
int count;
float16_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f16_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef EXTFLOAT80
void ver_a_f16_z_extF80( void trueFunction( float16_t, extFloat80_t * ) )
{
int count;
float16_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f16_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void ver_a_f16_z_f128( void trueFunction( float16_t, float128_t * ) )
{
int count;
float16_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f16_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_az_f16( float16_t trueFunction( float16_t ) )
{
int count;
float16_t a, subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f16_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_az_f16_rx(
float16_t trueFunction( float16_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float16_t a, subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f16_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f16( a );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_abz_f16( float16_t trueFunction( float16_t, float16_t ) )
{
int count;
float16_t a, b, subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f16( &b );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f16_isSignalingNaN( a ) || f16_isSignalingNaN( b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f16( a, b );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_abcz_f16( float16_t trueFunction( float16_t, float16_t, float16_t ) )
{
int count;
float16_t a, b, c, subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f16( &b );
readVerInput_f16( &c );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b, c );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f16_isSignalingNaN( a ) || f16_isSignalingNaN( b )
|| f16_isSignalingNaN( c ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_abc_f16( a, b, c );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_ab_f16_z_bool( bool trueFunction( float16_t, float16_t ) )
{
int count;
float16_t a, b;
bool subjZ;
uint_fast8_t subjFlags;
bool trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f16( &a );
readVerInput_f16( &b );
readVerInput_bool( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f16_isSignalingNaN( a ) || f16_isSignalingNaN( b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f16( a, b );
writeCase_z_bool( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
void
ver_a_f32_z_ui32_rx(
uint_fast32_t trueFunction( float32_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float32_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f32_z_ui64_rx(
uint_fast64_t trueFunction( float32_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float32_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f32_z_i32_rx(
int_fast32_t trueFunction( float32_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float32_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f32_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f32_z_i64_rx(
int_fast64_t trueFunction( float32_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float32_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f32_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f32_z_ui32_x(
uint_fast32_t trueFunction( float32_t, bool ), bool exact )
{
int count;
float32_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f32_z_ui64_x(
uint_fast64_t trueFunction( float32_t, bool ), bool exact )
{
int count;
float32_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f32_z_i32_x(
int_fast32_t trueFunction( float32_t, bool ), bool exact )
{
int count;
float32_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f32_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f32_z_i64_x(
int_fast64_t trueFunction( float32_t, bool ), bool exact )
{
int count;
float32_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f32_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT16
void ver_a_f32_z_f16( float16_t trueFunction( float32_t ) )
{
int count;
float32_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f32_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT64
void ver_a_f32_z_f64( float64_t trueFunction( float32_t ) )
{
int count;
float32_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f32_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef EXTFLOAT80
void ver_a_f32_z_extF80( void trueFunction( float32_t, extFloat80_t * ) )
{
int count;
float32_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f32_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void ver_a_f32_z_f128( void trueFunction( float32_t, float128_t * ) )
{
int count;
float32_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f32_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_az_f32( float32_t trueFunction( float32_t ) )
{
int count;
float32_t a, subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f32_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_az_f32_rx(
float32_t trueFunction( float32_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float32_t a, subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f32_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f32( a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_abz_f32( float32_t trueFunction( float32_t, float32_t ) )
{
int count;
float32_t a, b, subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f32( &b );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f32_isSignalingNaN( a ) || f32_isSignalingNaN( b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f32( a, b );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_abcz_f32( float32_t trueFunction( float32_t, float32_t, float32_t ) )
{
int count;
float32_t a, b, c, subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f32( &b );
readVerInput_f32( &c );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b, c );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f32_isSignalingNaN( a ) || f32_isSignalingNaN( b )
|| f32_isSignalingNaN( c ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_abc_f32( a, b, c );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_ab_f32_z_bool( bool trueFunction( float32_t, float32_t ) )
{
int count;
float32_t a, b;
bool subjZ;
uint_fast8_t subjFlags;
bool trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f32( &a );
readVerInput_f32( &b );
readVerInput_bool( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f32_isSignalingNaN( a ) || f32_isSignalingNaN( b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f32( a, b );
writeCase_z_bool( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef FLOAT64
void
ver_a_f64_z_ui32_rx(
uint_fast32_t trueFunction( float64_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float64_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f64_z_ui64_rx(
uint_fast64_t trueFunction( float64_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float64_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f64_z_i32_rx(
int_fast32_t trueFunction( float64_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float64_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f64_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f64_z_i64_rx(
int_fast64_t trueFunction( float64_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float64_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f64_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f64_z_ui32_x(
uint_fast32_t trueFunction( float64_t, bool ), bool exact )
{
int count;
float64_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f64_z_ui64_x(
uint_fast64_t trueFunction( float64_t, bool ), bool exact )
{
int count;
float64_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f64_z_i32_x(
int_fast32_t trueFunction( float64_t, bool ), bool exact )
{
int count;
float64_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f64_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f64_z_i64_x(
int_fast64_t trueFunction( float64_t, bool ), bool exact )
{
int count;
float64_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f64_isNaN( a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT16
void ver_a_f64_z_f16( float16_t trueFunction( float64_t ) )
{
int count;
float64_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f64_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_a_f64_z_f32( float32_t trueFunction( float64_t ) )
{
int count;
float64_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f64_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef EXTFLOAT80
void ver_a_f64_z_extF80( void trueFunction( float64_t, extFloat80_t * ) )
{
int count;
float64_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f64_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void ver_a_f64_z_f128( void trueFunction( float64_t, float128_t * ) )
{
int count;
float64_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f64_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_az_f64( float64_t trueFunction( float64_t ) )
{
int count;
float64_t a, subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f64_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, "\n\t" );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_az_f64_rx(
float64_t trueFunction( float64_t, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float64_t a, subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f64_isSignalingNaN( a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f64( a, "\n\t" );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_abz_f64( float64_t trueFunction( float64_t, float64_t ) )
{
int count;
float64_t a, b, subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f64( &b );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f64_isSignalingNaN( a ) || f64_isSignalingNaN( b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f64( a, b, "\n\t" );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_abcz_f64( float64_t trueFunction( float64_t, float64_t, float64_t ) )
{
int count;
float64_t a, b, c, subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f64( &b );
readVerInput_f64( &c );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b, c );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f64_isSignalingNaN( a ) || f64_isSignalingNaN( b )
|| f64_isSignalingNaN( c ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_abc_f64( a, b, c );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void ver_ab_f64_z_bool( bool trueFunction( float64_t, float64_t ) )
{
int count;
float64_t a, b;
bool subjZ;
uint_fast8_t subjFlags;
bool trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f64( &a );
readVerInput_f64( &b );
readVerInput_bool( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( a, b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f64_isSignalingNaN( a ) || f64_isSignalingNaN( b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f64( a, b, " " );
writeCase_z_bool( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef EXTFLOAT80
void
ver_a_extF80_z_ui32_rx(
uint_fast32_t trueFunction( const extFloat80_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
extFloat80_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_extF80_z_ui64_rx(
uint_fast64_t trueFunction( const extFloat80_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
extFloat80_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, "\n\t" );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_extF80_z_i32_rx(
int_fast32_t trueFunction( const extFloat80_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
extFloat80_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! extF80M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_extF80_z_i64_rx(
int_fast64_t trueFunction( const extFloat80_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
extFloat80_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! extF80M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, "\n\t" );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_extF80_z_ui32_x(
uint_fast32_t trueFunction( const extFloat80_t *, bool ), bool exact )
{
int count;
extFloat80_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_extF80_z_ui64_x(
uint_fast64_t trueFunction( const extFloat80_t *, bool ), bool exact )
{
int count;
extFloat80_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, "\n\t" );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_extF80_z_i32_x(
int_fast32_t trueFunction( const extFloat80_t *, bool ), bool exact )
{
int count;
extFloat80_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! extF80M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_extF80_z_i64_x(
int_fast64_t trueFunction( const extFloat80_t *, bool ), bool exact )
{
int count;
extFloat80_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! extF80M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, "\n\t" );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT16
void ver_a_extF80_z_f16( float16_t trueFunction( const extFloat80_t * ) )
{
int count;
extFloat80_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && extF80M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_a_extF80_z_f32( float32_t trueFunction( const extFloat80_t * ) )
{
int count;
extFloat80_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && extF80M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, " " );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT64
void ver_a_extF80_z_f64( float64_t trueFunction( const extFloat80_t * ) )
{
int count;
extFloat80_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && extF80M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, "\n\t" );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef FLOAT128
void
ver_a_extF80_z_f128( void trueFunction( const extFloat80_t *, float128_t * ) )
{
int count;
extFloat80_t a;
float128_t subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && extF80M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_az_extF80( void trueFunction( const extFloat80_t *, extFloat80_t * ) )
{
int count;
extFloat80_t a, subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && extF80M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_az_extF80_rx(
void
trueFunction( const extFloat80_t *, uint_fast8_t, bool, extFloat80_t * ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
extFloat80_t a, subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, roundingMode, exact, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && extF80M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_extF80M( &a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_abz_extF80(
void
trueFunction(
const extFloat80_t *, const extFloat80_t *, extFloat80_t * )
)
{
int count;
extFloat80_t a, b, subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_extF80( &b );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, &b, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (extF80M_isSignalingNaN( &a )
|| extF80M_isSignalingNaN( &b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_extF80M( &a, &b, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_ab_extF80_z_bool(
bool trueFunction( const extFloat80_t *, const extFloat80_t * ) )
{
int count;
extFloat80_t a, b;
bool subjZ;
uint_fast8_t subjFlags;
bool trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_extF80( &a );
readVerInput_extF80( &b );
readVerInput_bool( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, &b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (extF80M_isSignalingNaN( &a )
|| extF80M_isSignalingNaN( &b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_extF80M( &a, &b, " " );
writeCase_z_bool( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
/*----------------------------------------------------------------------------
*----------------------------------------------------------------------------*/
#ifdef FLOAT128
void
ver_a_f128_z_ui32_rx(
uint_fast32_t trueFunction( const float128_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float128_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f128_z_ui64_rx(
uint_fast64_t trueFunction( const float128_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float128_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, "\n\t" );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f128_z_i32_rx(
int_fast32_t trueFunction( const float128_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float128_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f128M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f128_z_i64_rx(
int_fast64_t trueFunction( const float128_t *, uint_fast8_t, bool ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float128_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, roundingMode, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f128M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, "\n\t" );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f128_z_ui32_x(
uint_fast32_t trueFunction( const float128_t *, bool ), bool exact )
{
int count;
float128_t a;
uint_fast32_t subjZ;
uint_fast8_t subjFlags;
uint_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_ui32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0xFFFFFFFF) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, " " );
writeCase_z_ui32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f128_z_ui64_x(
uint_fast64_t trueFunction( const float128_t *, bool ), bool exact )
{
int count;
float128_t a;
uint_fast64_t subjZ;
uint_fast8_t subjFlags;
uint_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_ui64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != UINT64_C( 0xFFFFFFFFFFFFFFFF )) && (subjZ != 0))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, "\n\t" );
writeCase_z_ui64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f128_z_i32_x(
int_fast32_t trueFunction( const float128_t *, bool ), bool exact )
{
int count;
float128_t a;
int_fast32_t subjZ;
uint_fast8_t subjFlags;
int_fast32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_i32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != 0x7FFFFFFF) && (subjZ != -0x7FFFFFFF - 1)
&& (! f128M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, " " );
writeCase_z_i32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_a_f128_z_i64_x(
int_fast64_t trueFunction( const float128_t *, bool ), bool exact )
{
int count;
float128_t a;
int_fast64_t subjZ;
uint_fast8_t subjFlags;
int_fast64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_i64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, exact );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
verCases_checkInvInts
|| (trueFlags != softfloat_flag_invalid)
|| (subjFlags != softfloat_flag_invalid)
|| ((subjZ != INT64_C( 0x7FFFFFFFFFFFFFFF ))
&& (subjZ != -INT64_C( 0x7FFFFFFFFFFFFFFF ) - 1)
&& (! f128M_isNaN( &a ) || (subjZ != 0)))
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, "\n\t" );
writeCase_z_i64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT16
void ver_a_f128_z_f16( float16_t trueFunction( const float128_t * ) )
{
int count;
float128_t a;
float16_t subjZ;
uint_fast8_t subjFlags;
float16_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f16( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f128M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f16_isNaN( trueZ )
|| ! f16_isNaN( subjZ )
|| f16_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, " " );
writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_a_f128_z_f32( float32_t trueFunction( const float128_t * ) )
{
int count;
float128_t a;
float32_t subjZ;
uint_fast8_t subjFlags;
float32_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f32( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f32_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f128M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f32_isNaN( trueZ )
|| ! f32_isNaN( subjZ )
|| f32_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, "\n\t" );
writeCase_z_f32( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#ifdef FLOAT64
void ver_a_f128_z_f64( float64_t trueFunction( const float128_t * ) )
{
int count;
float128_t a;
float64_t subjZ;
uint_fast8_t subjFlags;
float64_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f64( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f64_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f128M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f64_isNaN( trueZ )
|| ! f64_isNaN( subjZ )
|| f64_isSignalingNaN( subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, "\n\t" );
writeCase_z_f64( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
#ifdef EXTFLOAT80
void
ver_a_f128_z_extF80( void trueFunction( const float128_t *, extFloat80_t * ) )
{
int count;
float128_t a;
extFloat80_t subjZ;
uint_fast8_t subjFlags;
extFloat80_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_extF80( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! extF80M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f128M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! extF80M_isNaN( &trueZ )
|| ! extF80M_isNaN( &subjZ )
|| extF80M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, "\n\t" );
writeCase_z_extF80M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
void ver_az_f128( void trueFunction( const float128_t *, float128_t * ) )
{
int count;
float128_t a, subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f128M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_az_f128_rx(
void trueFunction( const float128_t *, uint_fast8_t, bool, float128_t * ),
uint_fast8_t roundingMode,
bool exact
)
{
int count;
float128_t a, subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, roundingMode, exact, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if ( ! verCases_checkNaNs && f128M_isSignalingNaN( &a ) ) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_a_f128M( &a, " " );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_abz_f128(
void trueFunction( const float128_t *, const float128_t *, float128_t * )
)
{
int count;
float128_t a, b, subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f128( &b );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, &b, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f128M_isSignalingNaN( &a )
|| f128M_isSignalingNaN( &b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f128M( &a, &b );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_abcz_f128(
void
trueFunction(
const float128_t *,
const float128_t *,
const float128_t *,
float128_t *
)
)
{
int count;
float128_t a, b, c, subjZ;
uint_fast8_t subjFlags;
float128_t trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f128( &b );
readVerInput_f128( &c );
readVerInput_f128( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueFunction( &a, &b, &c, &trueZ );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( ! f128M_same( &trueZ, &subjZ ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& ( f128M_isSignalingNaN( &a )
|| f128M_isSignalingNaN( &b )
|| f128M_isSignalingNaN( &c )
)
) {
trueFlags |= softfloat_flag_invalid;
}
if (
verCases_checkNaNs
|| ! f128M_isNaN( &trueZ )
|| ! f128M_isNaN( &subjZ )
|| f128M_isSignalingNaN( &subjZ )
|| (trueFlags != subjFlags)
) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_abc_f128M( &a, &b, &c );
writeCase_z_f128M( &trueZ, trueFlags, &subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
void
ver_ab_f128_z_bool(
bool trueFunction( const float128_t *, const float128_t * ) )
{
int count;
float128_t a, b;
bool subjZ;
uint_fast8_t subjFlags;
bool trueZ;
uint_fast8_t trueFlags;
verCases_errorCount = 0;
verCases_tenThousandsCount = 0;
count = 10000;
while ( ! atEndOfInput() ) {
readVerInput_f128( &a );
readVerInput_f128( &b );
readVerInput_bool( &subjZ );
readVerInput_flags( &subjFlags );
*verLoops_trueFlagsPtr = 0;
trueZ = trueFunction( &a, &b );
trueFlags = *verLoops_trueFlagsPtr;
--count;
if ( ! count ) {
verCases_perTenThousand();
count = 10000;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
if (
! verCases_checkNaNs
&& (f128M_isSignalingNaN( &a )
|| f128M_isSignalingNaN( &b ))
) {
trueFlags |= softfloat_flag_invalid;
}
if ( (trueZ != subjZ) || (trueFlags != subjFlags) ) {
++verCases_errorCount;
verCases_writeErrorFound( 10000 - count );
writeCase_ab_f128M( &a, &b );
writeCase_z_bool( trueZ, trueFlags, subjZ, subjFlags );
if ( verCases_errorCount == verCases_maxErrorCount ) break;
}
}
}
verCases_writeTestsPerformed( 10000 - count );
}
#endif
Reference in New Issue View Git Blame Copy Permalink