summaryrefslogtreecommitdiffstats
path: root/test/dtypes.c
diff options
context:
space:
mode:
authorRaymond Lu <songyulu@hdfgroup.org>2005-04-01 14:08:24 (GMT)
committerRaymond Lu <songyulu@hdfgroup.org>2005-04-01 14:08:24 (GMT)
commit3cf7dbbf1d8648536fd923353c2b9599513f64f2 (patch)
tree168c1efada28c8c64a655e30860883642348cb6c /test/dtypes.c
parent189028bc5fb3aed4b037c6694672c17bd71132a3 (diff)
downloadhdf5-3cf7dbbf1d8648536fd923353c2b9599513f64f2.zip
hdf5-3cf7dbbf1d8648536fd923353c2b9599513f64f2.tar.gz
hdf5-3cf7dbbf1d8648536fd923353c2b9599513f64f2.tar.bz2
[svn-r10531] Purpose: Bug fix
Description: In the last checkin, the fix wasn't quite correct. This round simply corrects the mistake from last round, especially the endianess was left out. Platforms tested: shanti, modi4, fuss - these machines cover both little and big endians.
Diffstat (limited to 'test/dtypes.c')
-rw-r--r--test/dtypes.c61
1 files changed, 34 insertions, 27 deletions
diff --git a/test/dtypes.c b/test/dtypes.c
index 627d7bf..f7d9c8f 100644
--- a/test/dtypes.c
+++ b/test/dtypes.c
@@ -5742,7 +5742,7 @@ my_isnan(dtype_t type, void *val)
} else {
return 0;
}
- if (HDstrstr(s, "NaN") || HDstrstr(s, "NAN") || HDstrstr(s, "nan"))
+ if (HDstrstr(s, "NaN") || HDstrstr(s, "NAN") || HDstrstr(s, "nan"))
retval = 1;
}
@@ -6967,6 +6967,39 @@ test_conv_int_float(const char *name, hbool_t run_special, hid_t src, hid_t dst)
if (k==dst_size)
continue; /*no error*/
+ /* Test library's handling of NaN:
+ * Hardware usually doesn't handle NaN too gracefully. The
+ * hardware conversion result is usually garbage so we must handle
+ * those cases differetly when checking results.
+ *
+ * Test user's exception handler when NaN happens:
+ * Try to follow the except_func callback function to check if the
+ * desired value was set.
+ */
+ if (run_special && (FLT_FLOAT==src_type || FLT_DOUBLE==src_type || FLT_LDOUBLE==src_type)) {
+ if (my_isnan(src_type, saved+j*src_size)) {
+ if(!except_set) {
+ if(!strcmp(name, "sw")) {
+ /*Although bit operation should be on little-endian order, this special
+ *case should be fine because we're searching non-zero bit only.*/
+ if (H5T_bit_find(buf+j*dst_size, 0, 8*dst_size-1, H5T_BIT_LSB, 1)<0)
+ continue; /*no error. Software conversion set integer to 0.*/
+ } else if(!strcmp(name, "hw")) {
+ continue; /*don't compare because hardware conversion may fill in garbage*/
+ }
+ } else {
+ /* fill_value is small so we only want to know the 1st byte is set. Also
+ * consider endianess here. */
+ if(endian==H5T_ORDER_LE)
+ if(buf[j*dst_size] == fill_value)
+ continue; /*no error*/
+ else
+ if(buf[(j+1)*dst_size-1] == fill_value)
+ continue; /*no error*/
+ }
+ }
+ }
+
/*
* Convert the source and destination values to little endian
* order so we can use the HDF5 bit vector operations to test
@@ -7056,32 +7089,6 @@ test_conv_int_float(const char *name, hbool_t run_special, hid_t src, hid_t dst)
}
}
}
-
- /* Test library's handling of NaN:
- * Hardware usually doesn't handle NaN too gracefully. The
- * hardware conversion result is usually garbage so we must handle
- * those cases differetly when checking results.
- *
- * Test user's exception handler when NaN happens:
- * Try to follow the except_func callback function to check if the
- * desired value was set.
- */
- if (run_special && (FLT_FLOAT==src_type || FLT_DOUBLE==src_type || FLT_LDOUBLE==src_type)) {
- if (my_isnan(src_type, src_bits)) {
- if(!except_set) {
- if(!strcmp(name, "sw")) {
- if (H5T_bit_find(dst_bits, 0, dst_nbits-1, H5T_BIT_LSB, 1)<0)
- continue; /*no error. Software conversion set integer to 0.*/
- } else if(!strcmp(name, "hw")) {
- continue; /*don't compare because hardware conversion may fill in garbage*/
- }
- } else {
- /* fill_value is small so we know only the 1st byte is set */
- if (dst_bits[0] == fill_value)
- continue; /*no error*/
- }
- }
- }
/* On some machines (notably the SGI and Solaris 64-bit machines) unsigned long
* values are not converted to float or double values correctly, they are