diff options
Diffstat (limited to 'test/dt_arith.c')
| -rw-r--r-- | test/dt_arith.c | 404 |
1 files changed, 202 insertions, 202 deletions
diff --git a/test/dt_arith.c b/test/dt_arith.c index 134f96b..6c481e6 100644 --- a/test/dt_arith.c +++ b/test/dt_arith.c @@ -65,9 +65,9 @@ const char *FILENAME[] = { typedef enum dtype_t { INT_SCHAR, INT_UCHAR, INT_SHORT, INT_USHORT, INT_INT, INT_UINT, - INT_LONG, INT_ULONG, INT_LLONG, INT_ULLONG, FLT_FLOAT, FLT_DOUBLE, + INT_LONG, INT_ULONG, INT_LLONG, INT_ULLONG, FLT_FLOAT, FLT_DOUBLE, #if H5_SIZEOF_LONG_DOUBLE !=0 - FLT_LDOUBLE, + FLT_LDOUBLE, #endif OTHER } dtype_t; @@ -156,9 +156,9 @@ static int without_hardware_g = 0; } \ } -/* Change a buffer's byte order from big endian to little endian. It's mainly for library's +/* Change a buffer's byte order from big endian to little endian. It's mainly for library's * bit operations which handle only little endian order. - */ + */ #define CHANGE_ORDER(EBUF, EORDER, ESIZE) \ { \ if (H5T_ORDER_BE==EORDER) { \ @@ -173,7 +173,7 @@ static int without_hardware_g = 0; } \ } -/* Allocate buffer and initialize it with floating-point normalized values. +/* Allocate buffer and initialize it with floating-point normalized values. * It's for conversion test of floating-point as the source. */ #define INIT_FP_NORM(TYPE, SRC_MAX, SRC_MIN, SRC_MAX_10_EXP, SRC_MIN_10_EXP, SRC_SIZE, \ @@ -251,7 +251,7 @@ static int without_hardware_g = 0; saved_p += SRC_SIZE; \ } -/* Allocate buffer and initialize it with floating-point denormalized values. +/* Allocate buffer and initialize it with floating-point denormalized values. * It's for conversion test of floating-point as the source. */ #define INIT_FP_DENORM(TYPE, SRC_MANT_DIG, SRC_SIZE, SRC_PREC, SRC_ORDR, DST_SIZE, \ @@ -304,7 +304,7 @@ static int without_hardware_g = 0; free(tmp2); \ } -/* Allocate buffer and initialize it with floating-point special values, +/-0, +/-infinity, +/* Allocate buffer and initialize it with floating-point special values, +/-0, +/-infinity, * +/-QNaN, +/-SNaN. It's for conversion test of floating-point as the source. */ #define INIT_FP_SPECIAL(SRC_SIZE, SRC_PREC, SRC_ORDR, SRC_MANT_DIG, DST_SIZE, \ @@ -372,7 +372,7 @@ static int without_hardware_g = 0; void some_dummy_func(float x); static hbool_t overflows(unsigned char *origin_bits, hid_t src_id, size_t dst_num_bits); static int my_isnan(dtype_t type, void *val); -static int my_isinf(dtype_t type, int endian, unsigned char *val, size_t size, +static int my_isinf(dtype_t type, int endian, unsigned char *val, size_t size, size_t mpos, size_t msize, size_t epos, size_t esize); /*------------------------------------------------------------------------- @@ -462,23 +462,23 @@ reset_hdf5(void) * *------------------------------------------------------------------------- */ -static H5T_conv_ret_t +static H5T_conv_ret_t except_func(int except_type, hid_t UNUSED src_id, hid_t UNUSED dst_id, void UNUSED *src_buf, void *dst_buf, void *user_data) { H5T_conv_ret_t ret = H5T_CONV_HANDLED; - if(except_type == H5T_CONV_EXCEPT_RANGE_HI) + if(except_type == H5T_CONV_EXCEPT_RANGE_HI) /*only test integer case*/ *(int*)dst_buf = *(int*)user_data; else if(except_type == H5T_CONV_EXCEPT_RANGE_LOW) /*only test integer case*/ *(int*)dst_buf = *(int*)user_data; else if(except_type == H5T_CONV_EXCEPT_TRUNCATE) - ret = H5T_CONV_UNHANDLED; + ret = H5T_CONV_UNHANDLED; else if(except_type == H5T_CONV_EXCEPT_PRECISION) - ret = H5T_CONV_UNHANDLED; - else if(except_type == H5T_CONV_EXCEPT_PINF) + ret = H5T_CONV_UNHANDLED; + else if(except_type == H5T_CONV_EXCEPT_PINF) /*only test integer case*/ *(int*)dst_buf = *(int*)user_data; else if(except_type == H5T_CONV_EXCEPT_NINF) @@ -557,7 +557,7 @@ generates_sigfpe(void) } HDexit(0); } - + while (pid!=waitpid(pid, &status, 0)) /*void*/; if (WIFEXITED(status) && 0==WEXITSTATUS(status)) { @@ -584,17 +584,17 @@ generates_sigfpe(void) * Purpose: Tests user-define and query functions of floating-point types. * * Return: Success: 0 - * + * * Failure: number of errors * * Programmer: Raymond Lu * Thursday, Jan 6, 2005 - * + * * Modifications: * *------------------------------------------------------------------------- */ -static int +static int test_derived_flt(void) { hid_t file=-1, tid1=-1, tid2=-1; @@ -618,50 +618,50 @@ test_derived_flt(void) if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT))<0) { H5_FAILED(); printf("Can't create file\n"); - goto error; + goto error; } if((dxpl_id = H5Pcreate(H5P_DATASET_XFER))<0) { H5_FAILED(); printf("Can't create data transfer property list\n"); - goto error; + goto error; } if((tid1 = H5Tcopy(H5T_IEEE_F64LE))<0) { H5_FAILED(); printf("Can't copy data type\n"); - goto error; + goto error; } if((tid2 = H5Tcopy(H5T_IEEE_F32LE))<0) { H5_FAILED(); printf("Can't copy data type\n"); - goto error; + goto error; } /*------------------------------------------------------------------------ * 1st floating-point type - * size=7 byte, precision=42 bits, offset=3 bits, mantissa size=31 bits, - * mantissa position=3, exponent size=10 bits, exponent position=34, - * exponent bias=511. It can be illustrated in little-endian order as + * size=7 byte, precision=42 bits, offset=3 bits, mantissa size=31 bits, + * mantissa position=3, exponent size=10 bits, exponent position=34, + * exponent bias=511. It can be illustrated in little-endian order as * * 6 5 4 3 2 1 0 * ???????? ???SEEEE EEEEEEMM MMMMMMMM MMMMMMMM MMMMMMMM MMMMM??? * - * To create a new floating-point type, the following properties must be - * set in the order of - * set fields -> set offset -> set precision -> set size. - * All these properties must be set before the type can function. Other - * properties can be set anytime. Derived type size cannot be expanded - * bigger than original size but can be decreased. There should be no - * holes among the significant bits. Exponent bias usually is set + * To create a new floating-point type, the following properties must be + * set in the order of + * set fields -> set offset -> set precision -> set size. + * All these properties must be set before the type can function. Other + * properties can be set anytime. Derived type size cannot be expanded + * bigger than original size but can be decreased. There should be no + * holes among the significant bits. Exponent bias usually is set * 2^(n-1)-1, where n is the exponent size. - *-----------------------------------------------------------------------*/ + *-----------------------------------------------------------------------*/ if(H5Tset_fields(tid1, 44, 34, 10, 3, 31)<0) { H5_FAILED(); printf("Can't set fields\n"); goto error; - } + } if(H5Tset_offset(tid1, 3)<0) { H5_FAILED(); printf("Can't set offset\n"); @@ -719,12 +719,12 @@ test_derived_flt(void) if(H5Tget_precision(tid1)!=42) { H5_FAILED(); printf("Can't get precision or wrong precision\n"); - goto error; + goto error; } if(H5Tget_offset(tid1)!=3) { H5_FAILED(); printf("Can't get offset or wrong offset\n"); - goto error; + goto error; } if((size = H5Tget_size(tid1))!=7) { H5_FAILED(); @@ -734,7 +734,7 @@ test_derived_flt(void) if(H5Tget_ebias(tid1)!=511) { H5_FAILED(); printf("Can't get exponent bias or wrong bias\n"); - goto error; + goto error; } /* Convert data from native integer to the 1st derived floating-point type. @@ -754,16 +754,16 @@ test_derived_flt(void) /* Convert data from native integer to derived floating-point type. * The mantissa is big enough to retain the integer's precision. */ - if(H5Tconvert(H5T_NATIVE_INT, tid1, nelmts, buf, NULL, dxpl_id)<0) { + if(H5Tconvert(H5T_NATIVE_INT, tid1, nelmts, buf, NULL, dxpl_id)<0) { H5_FAILED(); printf("Can't convert data\n"); - goto error; + goto error; } /* Convert data from the derived floating-point type back to native integer. */ - if(H5Tconvert(tid1, H5T_NATIVE_INT, nelmts, buf, NULL, dxpl_id)<0) { + if(H5Tconvert(tid1, H5T_NATIVE_INT, nelmts, buf, NULL, dxpl_id)<0) { H5_FAILED(); printf("Can't convert data\n"); - goto error; + goto error; } /* Are the values still the same?*/ @@ -772,7 +772,7 @@ test_derived_flt(void) if(buf[i*src_size+j]!=saved_buf[i*src_size+j]) break; if(j==src_size) - continue; /*no error*/ + continue; /*no error*/ /* Print errors */ if (0==fails_this_test++) { @@ -807,16 +807,16 @@ test_derived_flt(void) if(buf) free(buf); if(saved_buf) free(saved_buf); if(aligned) free(aligned); - buf = NULL; + buf = NULL; saved_buf = NULL; aligned = NULL; /*-------------------------------------------------------------------------- * 2nd floating-point type - * size=3 byte, precision=24 bits, offset=0 bits, mantissa size=16 bits, - * mantissa position=0, exponent size=7 bits, exponent position=16, exponent + * size=3 byte, precision=24 bits, offset=0 bits, mantissa size=16 bits, + * mantissa position=0, exponent size=7 bits, exponent position=16, exponent * bias=63. It can be illustrated in little-endian order as - * + * * 2 1 0 * SEEEEEEE MMMMMMMM MMMMMMMM *--------------------------------------------------------------------------*/ @@ -824,7 +824,7 @@ test_derived_flt(void) H5_FAILED(); printf("Can't set fields\n"); goto error; - } + } if(H5Tset_offset(tid2, 0)<0) { H5_FAILED(); printf("Can't set offset\n"); @@ -881,12 +881,12 @@ test_derived_flt(void) if(H5Tget_precision(tid2)!=24) { H5_FAILED(); printf("Can't get precision or wrong precision\n"); - goto error; + goto error; } if(H5Tget_offset(tid2)!=0) { H5_FAILED(); printf("Can't get offset or wrong offset\n"); - goto error; + goto error; } if((size = H5Tget_size(tid2))!=3) { H5_FAILED(); @@ -896,7 +896,7 @@ test_derived_flt(void) if(H5Tget_ebias(tid2)!=63) { H5_FAILED(); printf("Can't get exponent bias or wrong bias\n"); - goto error; + goto error; } /* Convert data from the 2nd to the 1st derived floating-point type. @@ -915,18 +915,18 @@ test_derived_flt(void) buf[i] = saved_buf[i] = HDrand(); /* Convert data from the 2nd to the 1st derived floating-point type. - * The mantissa and exponent of the 2nd type are big enough to retain + * The mantissa and exponent of the 2nd type are big enough to retain * the precision and exponent power. */ - if(H5Tconvert(tid2, tid1, nelmts, buf, NULL, dxpl_id)<0) { + if(H5Tconvert(tid2, tid1, nelmts, buf, NULL, dxpl_id)<0) { H5_FAILED(); printf("Can't convert data\n"); - goto error; + goto error; } /* Convert data from the 1st back to the 2nd derived floating-point type. */ - if(H5Tconvert(tid1, tid2, nelmts, buf, NULL, dxpl_id)<0) { + if(H5Tconvert(tid1, tid2, nelmts, buf, NULL, dxpl_id)<0) { H5_FAILED(); printf("Can't convert data\n"); - goto error; + goto error; } /* Are the values still the same?*/ @@ -935,10 +935,10 @@ test_derived_flt(void) if(buf[i*src_size+j]!=saved_buf[i*src_size+j]) break; if(j==src_size) - continue; /*no error*/ + continue; /*no error*/ - /* If original value is NaN(exponent bits are all ones, 11..11), - * the library simply sets all mantissa bits to ones. So don't + /* If original value is NaN(exponent bits are all ones, 11..11), + * the library simply sets all mantissa bits to ones. So don't * compare values in this case. */ if((buf[i*src_size+2]==0x7f && saved_buf[i*src_size+2]==0x7f) || @@ -999,7 +999,7 @@ test_derived_flt(void) PASSED(); reset_hdf5(); /*print statistics*/ - + return 0; error: @@ -1024,17 +1024,17 @@ test_derived_flt(void) * Purpose: Tests user-define and query functions of integer types. * * Return: Success: 0 - * + * * Failure: number of errors * * Programmer: Raymond Lu * Saturday, Jan 29, 2005 - * + * * Modifications: * *------------------------------------------------------------------------- */ -static int +static int test_derived_integer(void) { hid_t file=-1, tid1=-1, tid2=-1; @@ -1057,43 +1057,43 @@ test_derived_integer(void) if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT))<0) { H5_FAILED(); printf("Can't create file\n"); - goto error; + goto error; } if((dxpl_id = H5Pcreate(H5P_DATASET_XFER))<0) { H5_FAILED(); printf("Can't create data transfer property list\n"); - goto error; + goto error; } if((tid1 = H5Tcopy(H5T_STD_I32LE))<0) { H5_FAILED(); printf("Can't copy data type\n"); - goto error; + goto error; } if((tid2 = H5Tcopy(H5T_STD_U64LE))<0) { H5_FAILED(); printf("Can't copy data type\n"); - goto error; + goto error; } - + /*-------------------------------------------------------------------------- * 1st integer type * size=3 byte, precision=24 bits, offset=0 bits, order=big endian. * It can be illustrated in big-endian order as - * + * * 0 1 2 * SIIIIIII IIIIIIII IIIIIIII * - * There's no specific order for these functions to define the attributes - * of a new integer type, H5Tset_precision, H5Tset_offset, H5Tset_size, + * There's no specific order for these functions to define the attributes + * of a new integer type, H5Tset_precision, H5Tset_offset, H5Tset_size, * H5Tset_order, H5Tset_pad, H5Tset_sign. *--------------------------------------------------------------------------*/ if(H5Tset_offset(tid1,0)<0) { H5_FAILED(); printf("Can't set offset\n"); - goto error; + goto error; } if(H5Tset_size(tid1, 3)<0) { @@ -1105,13 +1105,13 @@ test_derived_integer(void) if(H5Tset_precision(tid1,24)<0) { H5_FAILED(); printf("Can't set precision\n"); - goto error; + goto error; } if(H5Tset_order(tid1, H5T_ORDER_BE)<0) { H5_FAILED(); printf("Can't set order\n"); - goto error; + goto error; } if(H5Tcommit(file, "new integer type 1", tid1)<0) { @@ -1119,7 +1119,7 @@ test_derived_integer(void) printf("Can't commit data type\n"); goto error; } - + if(H5Tclose(tid1)<0) { H5_FAILED(); printf("Can't close datatype\n"); @@ -1135,12 +1135,12 @@ test_derived_integer(void) if(H5Tget_precision(tid1)!=24) { H5_FAILED(); printf("Can't get precision or wrong precision\n"); - goto error; + goto error; } if(H5Tget_offset(tid1)!=0) { H5_FAILED(); printf("Can't get offset or wrong offset\n"); - goto error; + goto error; } if(H5Tget_size(tid1)!=3) { H5_FAILED(); @@ -1157,34 +1157,34 @@ test_derived_integer(void) * 2nd integer type * size=8 byte, precision=48 bits, offset=10 bits, order=little endian. * It can be illustrated in little-endian order as - * - * 7 6 5 4 3 2 1 0 + * + * 7 6 5 4 3 2 1 0 * ??????SI IIIIIIII IIIIIIII IIIIIIII IIIIIIII IIIIIIII IIIIII?? ???????? *--------------------------------------------------------------------------*/ if(H5Tset_precision(tid2,48)<0) { H5_FAILED(); printf("Can't set precision\n"); - goto error; + goto error; } if(H5Tset_offset(tid2,10)<0) { H5_FAILED(); printf("Can't set offset\n"); - goto error; + goto error; } - + if(H5Tset_sign(tid2,H5T_SGN_2)<0) { H5_FAILED(); printf("Can't set offset\n"); - goto error; + goto error; } - + if(H5Tcommit(file, "new integer type 2", tid2)<0) { H5_FAILED(); printf("Can't commit data type\n"); goto error; } - + if(H5Tclose(tid2)<0) { H5_FAILED(); printf("Can't close datatype\n"); @@ -1196,16 +1196,16 @@ test_derived_integer(void) printf("Can't open datatype\n"); goto error; } - + if(H5Tget_precision(tid2)!=48) { H5_FAILED(); printf("Can't get precision or wrong precision\n"); - goto error; + goto error; } if(H5Tget_offset(tid2)!=10) { H5_FAILED(); printf("Can't get offset or wrong offset\n"); - goto error; + goto error; } if(H5Tget_size(tid2)!=8) { H5_FAILED(); @@ -1234,18 +1234,18 @@ test_derived_integer(void) buf[i] = saved_buf[i] = HDrand(); /* Convert data from the 1st to the 2nd derived integer type. - * The precision of the 2nd type are big enough to retain + * The precision of the 2nd type are big enough to retain * the 1st type's precision. */ - if(H5Tconvert(tid1, tid2, nelmts, buf, NULL, dxpl_id)<0) { + if(H5Tconvert(tid1, tid2, nelmts, buf, NULL, dxpl_id)<0) { H5_FAILED(); printf("Can't convert data\n"); - goto error; + goto error; } /* Convert data from the 2nd back to the 1st derived integer type. */ - if(H5Tconvert(tid2, tid1, nelmts, buf, NULL, dxpl_id)<0) { + if(H5Tconvert(tid2, tid1, nelmts, buf, NULL, dxpl_id)<0) { H5_FAILED(); printf("Can't convert data\n"); - goto error; + goto error; } /* Are the values still the same?*/ @@ -1254,7 +1254,7 @@ test_derived_integer(void) if(buf[i*src_size+j]!=saved_buf[i*src_size+j]) break; if(j==src_size) - continue; /*no error*/ + continue; /*no error*/ /* Print errors */ if (0==fails_this_test++) { @@ -1307,7 +1307,7 @@ test_derived_integer(void) PASSED(); reset_hdf5(); /*print statistics*/ - + return 0; error: @@ -1383,7 +1383,7 @@ test_conv_int_1(const char *name, hid_t src, hid_t dst) unsigned long hw_ulong; long_long hw_llong; unsigned long_long hw_ullong; - + /* What are the names of the source and destination types */ if (H5Tequal(src, H5T_NATIVE_SCHAR)) { src_type_name = "signed char"; @@ -1419,7 +1419,7 @@ test_conv_int_1(const char *name, hid_t src, hid_t dst) src_type_name = "UNKNOWN"; src_type = OTHER; } - + if (H5Tequal(dst, H5T_NATIVE_SCHAR)) { dst_type_name = "signed char"; dst_type = INT_SCHAR; @@ -1470,7 +1470,7 @@ test_conv_int_1(const char *name, hid_t src, hid_t dst) HDfflush(stdout); fails_this_test=0; } - + /* Some information about datatypes */ endian = H5Tget_order(H5T_NATIVE_INT); src_size = H5Tget_size(src); @@ -1995,7 +1995,7 @@ test_conv_int_1(const char *name, hid_t src, hid_t dst) */ for (k=0; k<src_size; k++) src_bits[src_size-(k+1)] = saved[j*src_size+ENDIAN(src_size, k)]; - + for (k=0; k<dst_size; k++) dst_bits[dst_size-(k+1)] = buf[j*dst_size+ENDIAN(dst_size, k)]; @@ -2149,7 +2149,7 @@ test_conv_int_1(const char *name, hid_t src, hid_t dst) default: break; } - + printf(" dst = "); for (k=0; k<dst_size; k++) printf(" %02x", buf[j*dst_size+ENDIAN(dst_size, k)]); @@ -2198,7 +2198,7 @@ test_conv_int_1(const char *name, hid_t src, hid_t dst) default: break; } - + printf(" ans = "); for (k=0; k<dst_size; k++) printf(" %02x", hw[ENDIAN(dst_size, k)]); @@ -2289,7 +2289,7 @@ test_conv_int_2(void) printf("%-70s", "Testing overlap calculations"); HDfflush(stdout); - + HDmemset(buf, 0, sizeof buf); for (i=1; i<=32; i++) { for (j=1; j<=32; j++) { @@ -2376,7 +2376,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; } @@ -2399,7 +2399,7 @@ my_isnan(dtype_t type, void *val) *------------------------------------------------------------------------- */ static int -my_isinf(dtype_t type, int endian, unsigned char *val, size_t size, +my_isinf(dtype_t type, int endian, unsigned char *val, size_t size, size_t mpos, size_t msize, size_t epos, size_t esize) { unsigned char *bits; @@ -2411,7 +2411,7 @@ my_isinf(dtype_t type, int endian, unsigned char *val, size_t size, for (i=0; i<size; i++) bits[size-(i+1)] = *(val + ENDIAN(size, i)); - if((ret1=H5T_bit_find(bits, mpos, msize, H5T_BIT_LSB, 1))<0 && + if((ret1=H5T_bit_find(bits, mpos, msize, H5T_BIT_LSB, 1))<0 && (ret2=H5T_bit_find(bits, epos, esize, H5T_BIT_LSB, 0))<0) retval = 1; @@ -2483,7 +2483,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) #ifdef HANDLE_SIGFPE pid_t child_pid; /*process ID of child */ int status; /*child exit status */ - + /* * Some systems generage SIGFPE during floating point overflow and we * cannot assume that we can continue from such a signal. Therefore, we @@ -2530,7 +2530,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) src_type_name = "UNKNOWN"; src_type = OTHER; } - + if (H5Tequal(dst, H5T_NATIVE_FLOAT)) { dst_type_name = "float"; dst_type = FLT_FLOAT; @@ -2586,7 +2586,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) HDfflush(stdout); fails_this_test = 0; } - + /* Get "interesting" values */ src_size = H5Tget_size(src); dst_size = H5Tget_size(dst); @@ -2600,8 +2600,8 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) /* Allocate buffers */ aligned = HDcalloc(1, MAX(sizeof(long double), sizeof(double))); - /* Allocate and initialize the source buffer through macro INIT_FP_NORM or INIT_FP_SPECIAL. - * The BUF will be used for the conversion while the SAVED buffer will be used for + /* Allocate and initialize the source buffer through macro INIT_FP_NORM or INIT_FP_SPECIAL. + * The BUF will be used for the conversion while the SAVED buffer will be used for * the comparison later. INIT_FP_NORM will fill in the buffer with regular values like * normalized and denormalized values; INIT_FP_SPECIAL will fill with special values * like infinity, NaN. @@ -2620,26 +2620,26 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) } else if(src_type == FLT_LDOUBLE) { INIT_FP_NORM(long double, LDBL_MAX, LDBL_MIN, LDBL_MAX_10_EXP, LDBL_MIN_10_EXP, src_size, dst_size, buf, saved, nelmts); -#endif +#endif } else goto error; - + break; case TEST_DENORM: if(src_type == FLT_FLOAT) { INIT_FP_DENORM(float, FLT_MANT_DIG, src_size, src_nbits, endian, dst_size, buf, saved, nelmts); } else if(src_type == FLT_DOUBLE) { - INIT_FP_DENORM(double, DBL_MANT_DIG, src_size, src_nbits, endian, dst_size, + INIT_FP_DENORM(double, DBL_MANT_DIG, src_size, src_nbits, endian, dst_size, buf, saved, nelmts); #if H5_SIZEOF_LONG_DOUBLE!=H5_SIZEOF_DOUBLE && H5_SIZEOF_LONG_DOUBLE!=0 } else if(src_type == FLT_LDOUBLE) { - INIT_FP_DENORM(long double, LDBL_MANT_DIG, src_size, src_nbits, endian, dst_size, + INIT_FP_DENORM(long double, LDBL_MANT_DIG, src_size, src_nbits, endian, dst_size, buf, saved, nelmts); -#endif +#endif } else goto error; - + break; case TEST_SPECIAL: @@ -2653,7 +2653,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) } else if(src_type == FLT_LDOUBLE) { INIT_FP_SPECIAL(src_size, src_nbits, endian, LDBL_MANT_DIG, dst_size, buf, saved, nelmts); -#endif +#endif } else goto error; @@ -2709,14 +2709,14 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) } #if H5_SIZEOF_LONG_DOUBLE!=H5_SIZEOF_DOUBLE } else { - HDmemcpy(aligned, saved+j*sizeof(long double), sizeof(long double)); + HDmemcpy(aligned, saved+j*sizeof(long double), sizeof(long double)); if (FLT_FLOAT==dst_type) { - hw_f = *((long double*)aligned); + hw_f = *((long double*)aligned); hw = (unsigned char*)&hw_f; underflow = HDfabsl(*((long double*)aligned)) < FLT_MIN; overflow = HDfabsl(*((long double*)aligned)) > FLT_MAX; } else if (FLT_DOUBLE==dst_type) { - hw_d = *((long double*)aligned); + hw_d = *((long double*)aligned); hw = (unsigned char*)&hw_d; underflow = HDfabsl(*((long double*)aligned)) < DBL_MIN; overflow = HDfabsl(*((long double*)aligned)) > DBL_MAX; @@ -2731,11 +2731,11 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) } /* For Intel machines, the size of "long double" is 12 bytes, precision - * is 80 bits; for Intel IA64 and AMD processors, the size of "long double" - * is 16 bytes, precision is 80 bits. During hardware conversion, the - * last few unused bytes may have garbage in them. Clean them out with + * is 80 bits; for Intel IA64 and AMD processors, the size of "long double" + * is 16 bytes, precision is 80 bits. During hardware conversion, the + * last few unused bytes may have garbage in them. Clean them out with * 0s before compare the values. - */ + */ #if H5_SIZEOF_LONG_DOUBLE !=0 if(endian==H5T_ORDER_LE && dst_type==FLT_LDOUBLE) { unsigned int q; @@ -2791,7 +2791,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) * If the src number is smaller than the dst MIN float number, * consider it okay if the converted sw and hw dst are both * less than or equal to the dst MIN float number. - * If overflow happens when the src value is greater than + * If overflow happens when the src value is greater than * the maximum dst value, the library assign INFINITY to dst. * This might be different from what the compiler does, i.e. * the SGI compiler assigns the dst's maximal value. @@ -2799,14 +2799,14 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) { double check_mant[2]; int check_expo[2]; - + if (FLT_FLOAT==dst_type) { float x; HDmemcpy(&x, &buf[j*dst_size], sizeof(float)); if (underflow && HDfabsf(x) <= FLT_MIN && HDfabsf(hw_f) <= FLT_MIN) continue; /* all underflowed, no error */ - if (overflow && my_isinf(dst_type, endian, buf+j*sizeof(float), + if (overflow && my_isinf(dst_type, endian, buf+j*sizeof(float), dst_size, dst_mpos, dst_msize, dst_epos, dst_esize)) continue; /* all overflowed, no error */ check_mant[0] = HDfrexpf(x, check_expo+0); @@ -2817,7 +2817,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) if (underflow && HDfabs(x) <= DBL_MIN && HDfabs(hw_d) <= DBL_MIN) continue; /* all underflowed, no error */ - if (overflow && my_isinf(dst_type, endian, buf+j*sizeof(double), + if (overflow && my_isinf(dst_type, endian, buf+j*sizeof(double), dst_size, dst_mpos, dst_msize, dst_epos, dst_esize)) continue; /* all overflowed, no error */ check_mant[0] = HDfrexp(x, check_expo+0); @@ -2896,7 +2896,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) } } printf(" elmt %u\n", (unsigned)j); - + printf(" src ="); for (k=0; k<src_size; k++) printf(" %02x", saved[j*src_size+ENDIAN(src_size,k)]); @@ -2950,14 +2950,14 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) HDfprintf(stdout," %29.20Le\n", hw_ld); #endif - /* If the source is normalized values, print out error message; if it is + /* If the source is normalized values, print out error message; if it is * denormalized or special values, print out warning message.*/ if (++fails_all_tests>=max_fails) { if(run_test==TEST_NORMAL) HDputs(" maximum failures reached, aborting test..."); else if(run_test==TEST_DENORM || run_test==TEST_SPECIAL) HDputs(" maximum warnings reached, aborting test..."); - + goto done; } } @@ -2980,7 +2980,7 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) HDexit(0); #else reset_hdf5(); - + /* If the source is normalized values, treat the failures as error; * if it is denormalized or special values, treat the failure as warning.*/ if(run_test==TEST_NOOP || run_test==TEST_NORMAL) @@ -3012,14 +3012,14 @@ test_conv_flt_1 (const char *name, int run_test, hid_t src, hid_t dst) /*------------------------------------------------------------------------- * Function: test_conv_int_fp * - * Purpose: Test conversion between integer and float values + * Purpose: Test conversion between integer and float values * from SRC to DST. These types should be any combination of: * * H5T_NATIVE_SCHAR H5T_NATIVE_FLOAT * H5T_NATIVE_SHORT H5T_NATIVE_DOUBLE * H5T_NATIVE_INT H5T_NATIVE_LDOUBLE - * H5T_NATIVE_LONG - * H5T_NATIVE_LLONG + * H5T_NATIVE_LONG + * H5T_NATIVE_LLONG * * Return: Success: 0 * @@ -3181,7 +3181,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) if ((INT_SCHAR==src_type || INT_UCHAR==src_type || INT_SHORT==src_type || INT_USHORT==src_type || INT_INT==src_type || INT_UINT==src_type || INT_LONG==src_type || INT_ULONG==src_type || INT_LLONG==src_type || - INT_ULLONG==src_type) && + INT_ULLONG==src_type) && (FLT_FLOAT!=dst_type && FLT_DOUBLE!=dst_type #if H5_SIZEOF_LONG_DOUBLE !=0 && FLT_LDOUBLE!=dst_type @@ -3202,7 +3202,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) ) && (INT_SCHAR!=dst_type && INT_UCHAR!=dst_type && INT_SHORT!=dst_type && INT_USHORT!=dst_type && INT_INT!=dst_type && INT_UINT!=dst_type - && INT_LONG!=dst_type && INT_ULONG!=dst_type && INT_LLONG!=dst_type + && INT_LONG!=dst_type && INT_ULONG!=dst_type && INT_LLONG!=dst_type && INT_ULLONG!=dst_type)) { sprintf(str, "Testing %s %s -> %s conversions", name, src_type_name, dst_type_name); @@ -3248,22 +3248,22 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) #endif /* This is for some Linux systems where long double has the size - * 12 bytes but precision is 10 bytes. The 2 unused bytes may + * 12 bytes but precision is 10 bytes. The 2 unused bytes may * have garbage causing wrong value comparison. */ HDmemset(&hw_ldouble, 0, sizeof(long double)); - /* Create a dataset transfer property list and datatype conversion + /* Create a dataset transfer property list and datatype conversion * exception handler function and pass in fill value. This is mainly * for NetCDF compatibility, which requests fill in fill value when - * conversion exception happens. We only test (unsigned) int - float + * conversion exception happens. We only test (unsigned) int - float * and float - (unsigned) int conversions, which should cover more cases. */ if((dxpl_id = H5Pcreate(H5P_DATASET_XFER))<0) goto error; - if((src_type == INT_INT && dst_type == FLT_FLOAT) || - (src_type == INT_UINT && dst_type == FLT_FLOAT) || + if((src_type == INT_INT && dst_type == FLT_FLOAT) || + (src_type == INT_UINT && dst_type == FLT_FLOAT) || (src_type == FLT_FLOAT && dst_type == INT_UINT) || (src_type == FLT_FLOAT && dst_type == INT_INT)) { if(H5Pset_type_conv_cb(dxpl_id, except_func, &fill_value)<0) @@ -3276,7 +3276,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) if(op != except_func || *(int*)user_data != fill_value) goto error; - } + } /* Allocate and initialize the source buffer through macro INIT_INTEGER if the source is integer, * INIT_FP_NORM if floating-point. The BUF will be used for the conversion while the SAVED buffer will be @@ -3317,7 +3317,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) INIT_FP_NORM(double, DBL_MAX, DBL_MIN, DBL_MAX_10_EXP, DBL_MIN_10_EXP, src_size, dst_size, buf, saved, nelmts); } else if(run_test==TEST_DENORM) { - INIT_FP_DENORM(double, DBL_MANT_DIG, src_size, src_nbits, endian, dst_size, + INIT_FP_DENORM(double, DBL_MANT_DIG, src_size, src_nbits, endian, dst_size, buf, saved, nelmts); } else { INIT_FP_SPECIAL(src_size, src_nbits, endian, DBL_MANT_DIG, dst_size, buf, saved, nelmts); @@ -3328,12 +3328,12 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) INIT_FP_NORM(long double, LDBL_MAX, LDBL_MIN, LDBL_MAX_10_EXP, LDBL_MIN_10_EXP, src_size, dst_size, buf, saved, nelmts); } else if(run_test==TEST_DENORM) { - INIT_FP_DENORM(long double, LDBL_MANT_DIG, src_size, src_nbits, endian, dst_size, + INIT_FP_DENORM(long double, LDBL_MANT_DIG, src_size, src_nbits, endian, dst_size, buf, saved, nelmts); } else { INIT_FP_SPECIAL(src_size, src_nbits, endian, LDBL_MANT_DIG, dst_size, buf, saved, nelmts); - } -#endif + } +#endif } else goto error; @@ -3701,13 +3701,13 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) /* Make certain that there isn't some weird number of destination bits */ assert(dst_nbits%8==0); - + /* For Intel machines, the size of "long double" is 12 bytes, precision * is 80 bits; for AMD processors, the size of "long double" is 16 bytes, - * precision is 80 bits. During hardware conversion, the last few unused - * bytes may have garbage in them. Clean them out with 0s before compare + * precision is 80 bits. During hardware conversion, the last few unused + * bytes may have garbage in them. Clean them out with 0s before compare * the values. - */ + */ #if H5_SIZEOF_LONG_DOUBLE !=0 if(endian==H5T_ORDER_LE && dst_type==FLT_LDOUBLE) { unsigned int q; @@ -3732,7 +3732,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) */ for (k=0; k<src_size; k++) src_bits[src_size-(k+1)] = saved[j*src_size+ENDIAN(src_size, k)]; - + for (k=0; k<dst_size; k++) dst_bits[dst_size-(k+1)] = buf[j*dst_size+ENDIAN(dst_size, k)]; @@ -3741,8 +3741,8 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) * hardware conversion result during overflows is usually garbage * so we must handle those cases differetly when checking results. * - * Test user's exception handler when overflows: - * Try to follow the except_func callback function to check if the + * Test user's exception handler when overflows: + * Try to follow the except_func callback function to check if the * desired value was set. */ if ((FLT_FLOAT==src_type || FLT_DOUBLE==src_type @@ -3750,7 +3750,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) || FLT_LDOUBLE==src_type #endif ) - && (INT_SCHAR==dst_type || INT_SHORT==dst_type || INT_INT==dst_type + && (INT_SCHAR==dst_type || INT_SHORT==dst_type || INT_INT==dst_type || INT_LONG==dst_type || INT_LLONG==dst_type)) { if(0==H5T_bit_get_d(src_bits, src_nbits-1, 1) && overflows(src_bits, src, dst_nbits-1)) { @@ -3791,7 +3791,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) || FLT_LDOUBLE==src_type #endif ) - && (INT_UCHAR==dst_type || INT_USHORT==dst_type || INT_UINT==dst_type + && (INT_UCHAR==dst_type || INT_USHORT==dst_type || INT_UINT==dst_type || INT_ULONG==dst_type || INT_ULLONG==dst_type)) { if (H5T_bit_get_d(src_bits, src_nbits-1, 1)) { /* @@ -3821,7 +3821,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) } } } -/* On some machines (notably the SGI and Solaris 64-bit machines) unsigned long +/* 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 * consistently off by the lowest bit being rounded oppositely to our * software conversion routines output. So, on those machines, we allow @@ -3851,8 +3851,8 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) } /* end if */ #endif /* end H5_ULONG_FP_BOTTOM_BIT_WORKS */ -/* For PGI compiler on Linux, during conversion from 'float' or 'double' to -* 'unsigned long long', round-up happens when the fraction of float-point +/* For PGI compiler on Linux, during conversion from 'float' or 'double' to +* 'unsigned long long', round-up happens when the fraction of float-point * value is greater than 0.5. So we allow the converted value to be off by 1. */ #ifndef H5_FP_TO_ULLONG_BOTTOM_BIT_WORKS @@ -3882,7 +3882,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) } #endif #endif /*end H5_ULLONG_TO_LDOUBLE_PRECISION_WORKS*/ - + /* Print errors */ if (0==fails_this_test++) { if(run_test==TEST_NORMAL) { @@ -3955,7 +3955,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) case OTHER: break; } - + printf(" dst = "); for (k=0; k<dst_size; k++) printf(" %02x", buf[j*dst_size+ENDIAN(dst_size, k)]); @@ -4018,7 +4018,7 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) case OTHER: break; } - + printf(" ans = "); for (k=0; k<dst_size; k++) printf(" %02x", hw[ENDIAN(dst_size, k)]); @@ -4069,14 +4069,14 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) break; } - /* If the source is normalized values, print out error message; if it is + /* If the source is normalized values, print out error message; if it is * denormalized or special values, print out warning message.*/ if (++fails_all_tests>=max_fails) { if(run_test==TEST_NORMAL) HDputs(" maximum failures reached, aborting test..."); else if(run_test==TEST_DENORM || run_test==TEST_SPECIAL) HDputs(" maximum warnings reached, aborting test..."); - + goto done; } } @@ -4115,9 +4115,9 @@ test_conv_int_fp(const char *name, int run_test, hid_t src, hid_t dst) /*------------------------------------------------------------------------- * Function: overflows * - * Purpose: When convert from float or double to any integer type, - * check if overflow occurs. - * + * Purpose: When convert from float or double to any integer type, + * check if overflow occurs. + * * * Return: TRUE: overflow happens * @@ -4145,10 +4145,10 @@ overflows(unsigned char *origin_bits, hid_t src_id, size_t dst_num_bits) HDmemset(bits, 0, 32); HDmemset(mant_bits, 0, 32); - /* - * Sometimes, type size isn't equal to the precision like Linux's "long - * double", where size is 96 bits and precision is 80 bits. - */ + /* + * Sometimes, type size isn't equal to the precision like Linux's "long + * double", where size is 96 bits and precision is 80 bits. + */ src_prec = H5Tget_precision(src_id); H5Tget_fields(src_id, NULL, &epos, &expt_digits, &mpos, &mant_digits); @@ -4167,7 +4167,7 @@ overflows(unsigned char *origin_bits, hid_t src_id, size_t dst_num_bits) H5T_BIT_LSB, TRUE)<0 && H5T_bit_find (bits, epos, expt_digits, H5T_BIT_LSB, FALSE)<0) { /*This is a special case for the source of no implied mantissa bit. - *If the exponent bits are all 1s and only the 1st bit of mantissa + *If the exponent bits are all 1s and only the 1st bit of mantissa *is set to 1. It's infinity. The Intel-Linux "long double" is this case.*/ ret_value=TRUE; goto done; @@ -4175,16 +4175,16 @@ overflows(unsigned char *origin_bits, hid_t src_id, size_t dst_num_bits) /* get exponent */ expt = H5T_bit_get_d(bits, mant_digits, expt_digits) - bias; - + if(expt>=(dst_num_bits-1)) { ret_value=TRUE; goto done; - } + } /* get significand */ H5T_bit_copy (mant_bits, 0, bits, 0, mant_digits); - + /* restore implicit bit if normalization is implied*/ if(norm == H5T_NORM_IMPLIED) { H5T_bit_inc(mant_bits, mant_digits, 1); @@ -4200,7 +4200,7 @@ overflows(unsigned char *origin_bits, hid_t src_id, size_t dst_num_bits) ret_value=TRUE; done: - return ret_value; + return ret_value; } @@ -4395,7 +4395,7 @@ run_fp_tests(const char *name) goto done; } - /*Test normalized values. TEST_NORMAL indicates normalized values.*/ + /*Test normalized values. TEST_NORMAL indicates normalized values.*/ nerrors += test_conv_flt_1(name, TEST_NORMAL, H5T_NATIVE_FLOAT, H5T_NATIVE_DOUBLE); nerrors += test_conv_flt_1(name, TEST_NORMAL, H5T_NATIVE_DOUBLE, H5T_NATIVE_FLOAT); #if H5_SIZEOF_LONG_DOUBLE!=H5_SIZEOF_DOUBLE && H5_SIZEOF_LONG_DOUBLE !=0 @@ -4405,7 +4405,7 @@ run_fp_tests(const char *name) nerrors += test_conv_flt_1(name, TEST_NORMAL, H5T_NATIVE_LDOUBLE, H5T_NATIVE_DOUBLE); #endif - /*Test denormalized values. TEST_DENORM indicates denormalized values.*/ + /*Test denormalized values. TEST_DENORM indicates denormalized values.*/ nerrors += test_conv_flt_1(name, TEST_DENORM, H5T_NATIVE_FLOAT, H5T_NATIVE_DOUBLE); nerrors += test_conv_flt_1(name, TEST_DENORM, H5T_NATIVE_DOUBLE, H5T_NATIVE_FLOAT); #if H5_SIZEOF_LONG_DOUBLE!=H5_SIZEOF_DOUBLE && H5_SIZEOF_LONG_DOUBLE!=0 @@ -4457,7 +4457,7 @@ run_int_fp_conv(const char *name) nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_SHORT, H5T_NATIVE_FLOAT); nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_SHORT, H5T_NATIVE_DOUBLE); - + nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_USHORT, H5T_NATIVE_FLOAT); nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_USHORT, H5T_NATIVE_DOUBLE); @@ -4466,7 +4466,7 @@ run_int_fp_conv(const char *name) nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_UINT, H5T_NATIVE_FLOAT); nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_UINT, H5T_NATIVE_DOUBLE); - + #if H5_SIZEOF_LONG!=H5_SIZEOF_INT nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_LONG, H5T_NATIVE_FLOAT); nerrors += test_conv_int_fp(name, TEST_NORMAL, H5T_NATIVE_LONG, H5T_NATIVE_DOUBLE); @@ -4543,7 +4543,7 @@ run_int_fp_conv(const char *name) #else HDputs(" Test skipped due to disabled long double."); #endif - + } #endif /*H5_SW_INTEGER_TO_LDOUBLE_WORKS*/ @@ -4572,7 +4572,7 @@ run_fp_int_conv(const char *name) int test_values; int i; int run_test = TRUE; - + #ifndef H5_FP_TO_INTEGER_OVERFLOW_WORKS /* For Cray X1, the compiler generates floating exception when the * conversion overflows. So disable all of the conversions from @@ -4581,45 +4581,45 @@ run_fp_int_conv(const char *name) run_test = FALSE; #endif - if(run_test) { + if(run_test) { for(i=0; i<3; i++) { if(i==0) test_values = TEST_NORMAL; else if(i==1) test_values = TEST_DENORM; - else + else test_values = TEST_SPECIAL; nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_SCHAR); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_SCHAR); - + nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_UCHAR); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_UCHAR); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_SHORT); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_SHORT); - + nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_USHORT); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_USHORT); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_INT); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_INT); - + nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_UINT); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_UINT); - + #if H5_SIZEOF_LONG!=H5_SIZEOF_INT nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_LONG); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_LONG); - + nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_ULONG); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_ULONG); #endif - + #if H5_SIZEOF_LONG_LONG!=H5_SIZEOF_LONG if(!strcmp(name, "hw")) { /* Hardware conversion */ /* Windows .NET 2003 doesn't work for hardware conversion of this case. - * .NET should define this macro H5_HW_FP_TO_LLONG_NOT_WORKS. */ + * .NET should define this macro H5_HW_FP_TO_LLONG_NOT_WORKS. */ #ifndef H5_HW_FP_TO_LLONG_NOT_WORKS nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_FLOAT, H5T_NATIVE_LLONG); nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_DOUBLE, H5T_NATIVE_LLONG); @@ -4647,7 +4647,7 @@ run_fp_int_conv(const char *name) SKIPPED(); HDputs(" Test skipped due to hardware conversion error."); } -#endif /*H5_FP_TO_ULLONG_RIGHT_MAXIMUM*/ +#endif /*H5_FP_TO_ULLONG_RIGHT_MAXIMUM*/ #endif #if H5_SW_LDOUBLE_TO_INTEGER_WORKS @@ -4659,7 +4659,7 @@ run_fp_int_conv(const char *name) nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_LDOUBLE, H5T_NATIVE_INT); #if H5_CV_LDOUBLE_TO_UINT_WORKS nerrors += test_conv_int_fp(name, test_values, H5T_NATIVE_LDOUBLE, H5T_NATIVE_UINT); -#else /*H5_CV_LDOUBLE_TO_UINT_WORKS*/ +#else /*H5_CV_LDOUBLE_TO_UINT_WORKS*/ { char str[256]; /*string */ @@ -4697,7 +4697,7 @@ run_fp_int_conv(const char *name) HDputs(" Test skipped due to disabled long double."); #endif } -#endif /*H5_FP_TO_ULLONG_RIGHT_MAXIMUM*/ +#endif /*H5_FP_TO_ULLONG_RIGHT_MAXIMUM*/ #endif #endif #else /*H5_SW_LDOUBLE_TO_INTEGER_WORKS*/ @@ -4739,9 +4739,9 @@ run_fp_int_conv(const char *name) * * Purpose: Test the data type(integer and floating-point number). * - * Return: Success: + * Return: Success: * - * Failure: + * Failure: * * Programmer: Robb Matzke * Tuesday, December 9, 1997 @@ -4769,11 +4769,11 @@ main(void) /* Do the tests */ - /* Test user-define, query functions and software conversion + /* Test user-define, query functions and software conversion * for user-defined floating-point types */ nerrors += test_derived_flt(); - - /* Test user-define, query functions and software conversion + + /* Test user-define, query functions and software conversion * for user-defined integer types */ nerrors += test_derived_integer(); @@ -4794,10 +4794,10 @@ main(void) /* Test hardware float-integer conversion functions */ nerrors += run_fp_int_conv("hard"); - + /*---------------------------------------------------------------------- * Software tests - *---------------------------------------------------------------------- + *---------------------------------------------------------------------- */ without_hardware_g = TRUE; reset_hdf5(); @@ -4811,12 +4811,12 @@ main(void) /* Test software float-integer conversion functions */ nerrors += run_fp_int_conv("soft"); - + /* Test software integer-float conversion functions */ nerrors += run_int_fp_conv("soft"); - + reset_hdf5(); - + if (nerrors) { printf("***** %lu FAILURE%s! *****\n", nerrors, 1==nerrors?"":"S"); |