mirror of
				https://github.com/openhwgroup/cvw
				synced 2025-02-11 06:05:49 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			112 lines
		
	
	
		
			4.2 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			112 lines
		
	
	
		
			4.2 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| 
 | |
| /*============================================================================
 | |
| 
 | |
| 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, 2017 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 <stdint.h>
 | |
| #include "platform.h"
 | |
| #include "softfloat.h"
 | |
| #include "genCases.h"
 | |
| #include "verCases.h"
 | |
| #include "writeCase.h"
 | |
| #include "testLoops.h"
 | |
| 
 | |
| #ifdef FLOAT16
 | |
| 
 | |
| #pragma STDC FENV_ACCESS ON
 | |
| 
 | |
| void
 | |
|  test_abcz_f16(
 | |
|      float16_t trueFunction( float16_t, float16_t, float16_t ),
 | |
|      float16_t subjFunction( float16_t, float16_t, float16_t )
 | |
|  )
 | |
| {
 | |
|     int count;
 | |
|     float16_t trueZ;
 | |
|     uint_fast8_t trueFlags;
 | |
|     float16_t subjZ;
 | |
|     uint_fast8_t subjFlags;
 | |
| 
 | |
|     genCases_f16_abc_init();
 | |
|     genCases_writeTestsTotal( testLoops_forever );
 | |
|     verCases_errorCount = 0;
 | |
|     verCases_tenThousandsCount = 0;
 | |
|     count = 10000;
 | |
|     while ( ! genCases_done || testLoops_forever ) {
 | |
|         genCases_f16_abc_next();
 | |
|         *testLoops_trueFlagsPtr = 0;
 | |
|         trueZ = trueFunction( genCases_f16_a, genCases_f16_b, genCases_f16_c );
 | |
|         trueFlags = *testLoops_trueFlagsPtr;
 | |
|         testLoops_subjFlagsFunction();
 | |
|         subjZ = subjFunction( genCases_f16_a, genCases_f16_b, genCases_f16_c );
 | |
|         subjFlags = testLoops_subjFlagsFunction();
 | |
|         --count;
 | |
|         if ( ! count ) {
 | |
|             verCases_perTenThousand();
 | |
|             count = 10000;
 | |
|         }
 | |
|         if ( ! f16_same( trueZ, subjZ ) || (trueFlags != subjFlags) ) {
 | |
|             if (
 | |
|                    ! verCases_checkNaNs
 | |
|                 && (   f16_isSignalingNaN( genCases_f16_a )
 | |
|                     || f16_isSignalingNaN( genCases_f16_b )
 | |
|                     || f16_isSignalingNaN( genCases_f16_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(
 | |
|                     genCases_f16_a, genCases_f16_b, genCases_f16_c );
 | |
|                 writeCase_z_f16( trueZ, trueFlags, subjZ, subjFlags );
 | |
|                 if ( verCases_errorCount == verCases_maxErrorCount ) break;
 | |
|             }
 | |
|         }
 | |
|     }
 | |
|     verCases_writeTestsPerformed( 10000 - count );
 | |
| 
 | |
| }
 | |
| 
 | |
| #endif
 | |
| 
 |