diff options
author | Dana Robinson <derobins@hdfgroup.org> | 2015-09-17 17:21:34 (GMT) |
---|---|---|
committer | Dana Robinson <derobins@hdfgroup.org> | 2015-09-17 17:21:34 (GMT) |
commit | 944e42d5ea758f7c05a7aed9d344096cbc9b0be7 (patch) | |
tree | 0334707212774a56594fe714a795275c25d93804 /fortran/src/H5match_types.c | |
parent | 2ddf84b036f7d458bf2878db3ca36336c0ca7de7 (diff) | |
download | hdf5-944e42d5ea758f7c05a7aed9d344096cbc9b0be7.zip hdf5-944e42d5ea758f7c05a7aed9d344096cbc9b0be7.tar.gz hdf5-944e42d5ea758f7c05a7aed9d344096cbc9b0be7.tar.bz2 |
[svn-r27818] Minor warning fixes.
Tested on: h5committest
Diffstat (limited to 'fortran/src/H5match_types.c')
-rw-r--r-- | fortran/src/H5match_types.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 37509a0..f995e83 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -149,8 +149,6 @@ int main(void) { int FoundIntSize[10]; int FoundIntSizeKind[10]; - int FoundRealSize[10]; - int FoundRealSizeKind[10]; int i, j,flag; char chrA[32],chrB[32]; @@ -382,16 +380,8 @@ int main(void) /* it a value of the next larger one, but if the next */ /* higher one is not available we assigned it the next lowest */ - FoundRealSize[0] = -1; - FoundRealSize[1] = -1; - FoundRealSize[2] = -1; - FoundRealSize[3] = -1; - FoundRealSize[4] = -1; - for(i=0;i<H5_FORTRAN_NUM_REAL_KINDS;i++) { if (RealKinds[i] > 0) { - FoundRealSize[i] = (int)RealKinds[i]; - FoundRealSizeKind[i] = (int)RealKinds_SizeOf[i]; sprintf(chrA, "Fortran_REAL_%s", Real_C_TYPES[i]); sprintf(chrB, "real_%s_f", Real_C_TYPES[i]); writeToFiles("float",chrA, chrB, RealKinds[i], RealKinds_SizeOf[i]); |