mirror of
https://github.com/amd/blis.git
synced 2026-05-11 09:39:59 +00:00
664ec4813d
Details: - Created a new test suite that exercises only the BLAS compatibility found in BLIS. The test suite is a straightforward port of code obtained from netlib LAPACK, run through f2c and linked to a stripped- down version of libf2c that is compiled along with the test drivers (to prevent any obvious ABI issues). The new BLAS test suite can be run from within its new local directory, 'blastest' (through its local 'make ; make run' targets) or from the top-level Makefile (via the 'make testblas' target). Output files are created in whatever directory the test drivers are run, whether it be the 'blastest' directory, the top-level source distribution directory, or the out-of-tree directory in which 'configure' was run. Also, the results of the BLAS test suite can be checked via 'make checkblas', which summarizes the presence or absence of test failures in a single line printed to stdout. - Updated the 'test' target to run both 'testblis' and 'testblas'. - Added a new 'testblis-fast' target that runs the BLIS testsuite with smaller problem sizes, allowing it to finish more quickly. - Added a 'make check' target, which runs 'checkblis-fast' and 'checkblas'. - Changed .travis.yml so that Travis CI runs 'testblis-fast' instead of 'testblis' before (calling the check-blistest.sh script to check the result manually). - Renamed some targets in the top-level Makefile to be consistent between BLAS and BLIS.
69 lines
2.0 KiB
C
69 lines
2.0 KiB
C
/****************************************************************
|
|
Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore.
|
|
|
|
Permission to use, copy, modify, and distribute this software
|
|
and its documentation for any purpose and without fee is hereby
|
|
granted, provided that the above copyright notice appear in all
|
|
copies and that both that the copyright notice and this
|
|
permission notice and warranty disclaimer appear in supporting
|
|
documentation, and that the names of AT&T, Bell Laboratories,
|
|
Lucent or Bellcore or any of their entities not be used in
|
|
advertising or publicity pertaining to distribution of the
|
|
software without specific, written prior permission.
|
|
|
|
AT&T, Lucent and Bellcore disclaim all warranties with regard to
|
|
this software, including all implied warranties of
|
|
merchantability and fitness. In no event shall AT&T, Lucent or
|
|
Bellcore be liable for any special, indirect or consequential
|
|
damages or any damages whatsoever resulting from loss of use,
|
|
data or profits, whether in an action of contract, negligence or
|
|
other tortious action, arising out of or in connection with the
|
|
use or performance of this software.
|
|
****************************************************************/
|
|
|
|
#include <f2c_config.h>
|
|
/* @(#)fmtlib.c 1.2 */
|
|
#define MAXINTLENGTH 23
|
|
|
|
#include "f2c.h"
|
|
#ifndef Allow_TYQUAD
|
|
#undef longint
|
|
#define longint long
|
|
#undef ulongint
|
|
#define ulongint unsigned long
|
|
#endif
|
|
|
|
#ifdef INTEGER_STAR_8
|
|
char *f__icvt(longint value, int *ndigit, int *sign, int base)
|
|
#else
|
|
char *f__icvt(integer value, int *ndigit, int *sign, int base)
|
|
#endif
|
|
{
|
|
static char buf[MAXINTLENGTH+1];
|
|
register int i;
|
|
ulongint uvalue;
|
|
|
|
if(value > 0) {
|
|
uvalue = value;
|
|
*sign = 0;
|
|
}
|
|
else if (value < 0) {
|
|
uvalue = -value;
|
|
*sign = 1;
|
|
}
|
|
else {
|
|
*sign = 0;
|
|
*ndigit = 1;
|
|
buf[MAXINTLENGTH-1] = '0';
|
|
return &buf[MAXINTLENGTH-1];
|
|
}
|
|
i = MAXINTLENGTH;
|
|
do {
|
|
buf[--i] = (uvalue%base) + '0';
|
|
uvalue /= base;
|
|
}
|
|
while(uvalue > 0);
|
|
*ndigit = MAXINTLENGTH - i;
|
|
return &buf[i];
|
|
}
|