From fa61ea96dd2aad4404f5bd02efc67770e4efd09a Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Wed, 29 Nov 2000 18:42:16 -0500 Subject: [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) --- fortran/test/tH5G.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v0.12