summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorDana Robinson <derobins@hdfgroup.org>2015-09-17 17:21:34 (GMT)
committerDana Robinson <derobins@hdfgroup.org>2015-09-17 17:21:34 (GMT)
commit944e42d5ea758f7c05a7aed9d344096cbc9b0be7 (patch)
tree0334707212774a56594fe714a795275c25d93804 /fortran/src
parent2ddf84b036f7d458bf2878db3ca36336c0ca7de7 (diff)
downloadhdf5-944e42d5ea758f7c05a7aed9d344096cbc9b0be7.zip
hdf5-944e42d5ea758f7c05a7aed9d344096cbc9b0be7.tar.gz
hdf5-944e42d5ea758f7c05a7aed9d344096cbc9b0be7.tar.bz2
[svn-r27818] Minor warning fixes.
Tested on: h5committest
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5f90proto.h2
-rw-r--r--fortran/src/H5match_types.c10
2 files changed, 2 insertions, 10 deletions
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h
index 1d08d7e..f8b4564 100644
--- a/fortran/src/H5f90proto.h
+++ b/fortran/src/H5f90proto.h
@@ -196,6 +196,8 @@ H5_FCDLL int_f h5gget_info_by_name_c(hid_t_f *loc_id, _fcd group_name, size_t_f
H5_FCDLL int_f h5awrite_f_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
H5_FCDLL int_f h5aread_f_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
+H5_FCDLL int_f h5acreate_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id,
+ hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *aapl, hid_t_f *attr_id);
H5_FCDLL int_f h5adelete_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen);
H5_FCDLL int_f h5aget_num_attrs_c(hid_t_f *obj_id, int_f *attr_num);
H5_FCDLL int_f h5aget_name_c(hid_t_f *attr_id, size_t_f *size, _fcd buf);
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]);