47 lines
1.5 KiB
C
47 lines
1.5 KiB
C
|
|
||
|
|
/*
|
||
|
|
===============================================================================
|
||
|
|
|
||
|
|
This C source file is part of TestFloat, Release 2a, a package of programs
|
||
|
|
for testing the correctness of floating-point arithmetic complying to the
|
||
|
|
IEC/IEEE Standard for Floating-Point.
|
||
|
|
|
||
|
|
Written by John R. Hauser. More information is available through the Web
|
||
|
|
page `http://HTTP.CS.Berkeley.EDU/~jhauser/arithmetic/TestFloat.html'.
|
||
|
|
|
||
|
|
THIS SOFTWARE IS DISTRIBUTED AS IS, FOR FREE. Although reasonable effort
|
||
|
|
has been made to avoid it, THIS SOFTWARE MAY CONTAIN FAULTS THAT WILL AT
|
||
|
|
TIMES RESULT IN INCORRECT BEHAVIOR. USE OF THIS SOFTWARE IS RESTRICTED TO
|
||
|
|
PERSONS AND ORGANIZATIONS WHO CAN AND WILL TAKE FULL RESPONSIBILITY FOR ANY
|
||
|
|
AND ALL LOSSES, COSTS, OR OTHER PROBLEMS ARISING FROM ITS USE.
|
||
|
|
|
||
|
|
Derivative works are acceptable, even for commercial purposes, so long as
|
||
|
|
(1) they include prominent notice that the work is derivative, and (2) they
|
||
|
|
include prominent notice akin to these four paragraphs for those parts of
|
||
|
|
this code that are retained.
|
||
|
|
|
||
|
|
===============================================================================
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <stdarg.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include "milieu.h"
|
||
|
|
#include "fail.h"
|
||
|
|
|
||
|
|
char *fail_programName = "";
|
||
|
|
|
||
|
|
void fail( const char *message, ... )
|
||
|
|
{
|
||
|
|
va_list varArgs;
|
||
|
|
|
||
|
|
fprintf( stderr, "%s: ", fail_programName );
|
||
|
|
va_start( varArgs, message );
|
||
|
|
vfprintf( stderr, message, varArgs );
|
||
|
|
va_end( varArgs );
|
||
|
|
fputs( ".\n", stderr );
|
||
|
|
exit( EXIT_FAILURE );
|
||
|
|
|
||
|
|
}
|
||
|
|
|