/*============================================================================ 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 #include #include #include #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