[svn-r2729]

Purpose:
    Bug fix
Description:
    Attribute test failed on O2K. h5aget_name_f function could not
    return correct attribute name.
Solution:
    size function parameter had wrong datatype in F90 subroutine.
    Fixed it to be of INTEGER(SIZE_T) type.
Platforms tested:
    O2K, Linux

1 files changed, 4 insertions, 5 deletions

diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index 504e937..ad13910 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -412,7 +412,7 @@ nh5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf)
       * Allocate buffer to hold name of an attribute
       */
      c_bufsize = *bufsize;
-     c_buf = (char *)HDmalloc(c_bufsize +1);
+     c_buf = (char *)HDmalloc((int)c_bufsize +1);
      if (c_buf == NULL) return ret_value; 
  
      /*
@@ -425,9 +425,8 @@ nh5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf)
      /*
       * Convert C name to FORTRAN and place it in the given buffer
       */
-      
-      HDpackFstring(c_buf, _fcdtocp(buf), c_bufsize);
-      HDfree( c_buf);
-      ret_value = c_size;
+      HDpackFstring(c_buf, _fcdtocp(buf), (int)c_bufsize);
+      HDfree(c_buf);
+      ret_value = (int_f)c_size;
       return ret_value;
 }