summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2004-04-17 17:17:32 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2004-04-17 17:17:32 (GMT)
commite4d56236928b52e10a7d050388d6193c76e05e73 (patch)
tree4c84132d71189f13ec4a57c645991d7794edf799 /test
parent9e859565e49b62e4610b9340436835d6d190db34 (diff)
downloadhdf5-e4d56236928b52e10a7d050388d6193c76e05e73.zip
hdf5-e4d56236928b52e10a7d050388d6193c76e05e73.tar.gz
hdf5-e4d56236928b52e10a7d050388d6193c76e05e73.tar.bz2
[svn-r8370] Purpose:
Bug fix. Description: Not all machines (like Sun and AIX) support fabsl() and fabsf() used in test/dtypes.c. Changed the coding to use macro names HDfabsl and HDfabsf. Also set the two macros to use ABS for now so that they will work for all machines. (need more portable fixes which would involve configure.) Platforms tested: h5committested. (also tested in LANL QSC and Theta).
Diffstat (limited to 'test')
-rw-r--r--test/dtypes.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/test/dtypes.c b/test/dtypes.c
index b9af7d6..41c5d19 100644
--- a/test/dtypes.c
+++ b/test/dtypes.c
@@ -4984,7 +4984,7 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst)
if (FLT_FLOAT==dst_type) {
hw_f = (float)(*((double*)aligned));
hw = (unsigned char*)&hw_f;
- underflow = fabs(*((double*)aligned)) < FLT_MIN;
+ underflow = HDfabs(*((double*)aligned)) < FLT_MIN;
} else if (FLT_DOUBLE==dst_type) {
hw_d = *((double*)aligned);
hw = (unsigned char*)&hw_d;
@@ -5000,11 +5000,11 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst)
if (FLT_FLOAT==dst_type) {
hw_f = *((long double*)aligned);
hw = (unsigned char*)&hw_f;
- underflow = fabsl(*((long double*)aligned)) < FLT_MIN;
+ underflow = HDfabsl(*((long double*)aligned)) < FLT_MIN;
} else if (FLT_DOUBLE==dst_type) {
hw_d = *((long double*)aligned);
hw = (unsigned char*)&hw_d;
- underflow = fabsl(*((long double*)aligned)) < DBL_MIN;
+ underflow = HDfabsl(*((long double*)aligned)) < DBL_MIN;
} else {
hw_ld = *((long double*)aligned);
hw = (unsigned char*)&hw_ld;
@@ -5069,7 +5069,7 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst)
float x;
HDmemcpy(&x, &buf[j*dst_size], sizeof(float));
if (underflow &&
- fabsf(x) <= FLT_MIN && fabsf(hw_f) <= FLT_MIN)
+ HDfabsf(x) <= FLT_MIN && HDfabsf(hw_f) <= FLT_MIN)
continue; /* all underflowed, no error */
check_mant[0] = HDfrexpf(x, check_expo+0);
check_mant[1] = HDfrexpf(hw_f, check_expo+1);
@@ -5077,7 +5077,7 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst)
double x;
HDmemcpy(&x, &buf[j*dst_size], sizeof(double));
if (underflow &&
- fabs(x) <= DBL_MIN && fabs(hw_d) <= DBL_MIN)
+ HDfabs(x) <= DBL_MIN && HDfabs(hw_d) <= DBL_MIN)
continue; /* all underflowed, no error */
check_mant[0] = HDfrexp(x, check_expo+0);
check_mant[1] = HDfrexp(hw_d, check_expo+1);