[svn-r27818] Minor warning fixes.

Tested on: h5committest

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]);