summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/t.c19
-rw-r--r--fortran/test/t.h2
-rw-r--r--fortran/test/tH5F.f9011
-rw-r--r--fortran/test/tf.f9036
4 files changed, 67 insertions, 1 deletions
diff --git a/fortran/test/t.c b/fortran/test/t.c
index cb71fd2..9eede1a 100644
--- a/fortran/test/t.c
+++ b/fortran/test/t.c
@@ -128,3 +128,22 @@ nh5_exit_c(int_f *status)
HDexit((int)*status);
} /* h5_exit_c */
+
+/*----------------------------------------------------------------------------
+ * Name: h5_group_revision_c
+ * Purpose: Checks if H5_GROUP_REVISION variable defined
+ * Inputs:
+ * Returns: 1 if defines, 0 otherwise
+ * Programmer: Elena Pourmal
+ * Saturday, May 13, 2006
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5_group_revision_c()
+{
+ int_f ret =0;
+#ifdef H5_GROUP_REVISION
+ ret = 1;
+#endif
+ return ret;
+} /* h5_group_revision_c */
diff --git a/fortran/test/t.h b/fortran/test/t.h
index 79c6d4b..47062ac 100644
--- a/fortran/test/t.h
+++ b/fortran/test/t.h
@@ -25,6 +25,7 @@ char *h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size)
# define nh5_fixname_c H5_FC_FUNC_(h5_fixname_c, H5_FIXNAME_C)
# define nh5_cleanup_c H5_FC_FUNC_(h5_cleanup_c, H5_CLEANUP_C)
# define nh5_exit_c H5_FC_FUNC_(h5_exit_c, H5_EXIT_C)
+# define nh5_group_revision_c H5_FC_FUNC_(h5_group_revision_c, H5_GROUP_REVISION_C)
H5_FCTESTDLL int_f nh5_fixname_c
(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name, size_t_f *full_namelen);
@@ -35,3 +36,4 @@ H5_FCTESTDLL int_f nh5_cleanup_c
H5_FCTESTDLL void nh5_exit_c
(int_f *status);
+H5_FCTESTDLL int_f nh5_group_revision_c();
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90
index f85d3e9..2cc4766 100644
--- a/fortran/test/tH5F.f90
+++ b/fortran/test/tH5F.f90
@@ -696,6 +696,8 @@
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
INTEGER :: error
+ INTEGER flag
+ INTEGER :: free_space_out
!
CHARACTER(LEN=10), PARAMETER :: filename = "file_space"
@@ -745,9 +747,16 @@
! Check the free space now
CALL h5fget_freespace_f(fid, free_space, error)
+ CALL h5_group_revision_f(flag)
CALL check("h5fget_freespace_f",error,total_error)
+ if(flag .eq. 1) then
+ free_space_out = 232
+ else
+ free_space_out = 1024
+ endif
+ if(error .eq.0 .and. free_space .ne. free_space_out) then
! if(error .eq.0 .and. free_space .ne. 232) then
- if(error .eq.0 .and. free_space .ne. 1024) then
+! if(error .eq.0 .and. free_space .ne. 1024) then
total_error = total_error + 1
write(*,*) "3: Wrong amount of free space reported, ", free_space
endif
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90
index f62c3d5..6dc3c02 100644
--- a/fortran/test/tf.f90
+++ b/fortran/test/tf.f90
@@ -200,3 +200,39 @@
CALL h5_exit_c(status)
END SUBROUTINE h5_exit_f
+
+!----------------------------------------------------------------------
+! Name: h5_group_revision_f
+!
+! Purpose: Checks if group revisions are defined
+!
+! Inputs:
+!
+! Outputs:
+! flag
+!
+! Programmer: Elena Pourmal
+! May 13, 2006
+!
+!
+!----------------------------------------------------------------------
+ SUBROUTINE h5_group_revision_f(flag)
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5_group_revision_f
+!DEC$endif
+ IMPLICIT NONE
+ INTEGER, INTENT(OUT) :: flag ! Return code
+ INTEGER :: flag1
+ INTERFACE
+ INTEGER FUNCTION h5_group_revision_c()
+ !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+ !MS$ATTRIBUTES C,reference,alias:'_H5_GROUP_REVISION_C':: h5_group_revision_c
+ !DEC$ ENDIF
+ END FUNCTION h5_group_revision_c
+ END INTERFACE
+
+ flag = h5_group_revision_c()
+
+ END SUBROUTINE h5_group_revision_f