diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-29 23:42:16 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-29 23:42:16 (GMT) |
commit | fa61ea96dd2aad4404f5bd02efc67770e4efd09a (patch) | |
tree | 49bdded4af0a1dbfcfdd83a53855c05043cb75bf /fortran/test | |
parent | 4a7f9c11bc1e6dafbdfd467a70cd3cf1de1bc40c (diff) | |
download | hdf5-fa61ea96dd2aad4404f5bd02efc67770e4efd09a.zip hdf5-fa61ea96dd2aad4404f5bd02efc67770e4efd09a.tar.gz hdf5-fa61ea96dd2aad4404f5bd02efc67770e4efd09a.tar.bz2 |
[svn-r3032]
Purpose:
Bug fix
Description:
h5gget_linkval_f function had an argument with the type INTEGER instead
on INTEGER(SIZE_T). Test would not compile on O2K.
Solution:
Fixed argument datatype.
Platforms tested:
O2K (modi4)
Diffstat (limited to 'fortran/test')
-rw-r--r-- | fortran/test/tH5G.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5G.f90 b/fortran/test/tH5G.f90 index f68fc3c..2ec6435 100644 --- a/fortran/test/tH5G.f90 +++ b/fortran/test/tH5G.f90 @@ -36,7 +36,7 @@ INTEGER(HSIZE_T), DIMENSION(1) :: dims = 1 ! Datasets dimensions INTEGER :: rank = 1 ! Datasets rank INTEGER :: error ! Error flag - INTEGER :: namesize = 100 !size for symbolic object + INTEGER(SIZE_T) :: namesize = 100 !size for symbolic object CHARACTER*100 :: name !name to put symbolic object CHARACTER*100 :: commentout !comment to the file INTEGER :: nmembers |