summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-11-29 23:42:16 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-11-29 23:42:16 (GMT)
commitfa61ea96dd2aad4404f5bd02efc67770e4efd09a (patch)
tree49bdded4af0a1dbfcfdd83a53855c05043cb75bf /fortran/test
parent4a7f9c11bc1e6dafbdfd467a70cd3cf1de1bc40c (diff)
downloadhdf5-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.f902
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