summaryrefslogtreecommitdiffstats
path: root/fortran/test/tf.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2006-05-14 00:43:58 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2006-05-14 00:43:58 (GMT)
commit0742585e9aaacf513a5ab44da5e4755c9c0c5d60 (patch)
tree43caca4f46fcf3e434db97b376f265ee0f039a18 /fortran/test/tf.f90
parent916399d31ed063c0d7e8b7aba864841168a37b93 (diff)
downloadhdf5-0742585e9aaacf513a5ab44da5e4755c9c0c5d60.zip
hdf5-0742585e9aaacf513a5ab44da5e4755c9c0c5d60.tar.gz
hdf5-0742585e9aaacf513a5ab44da5e4755c9c0c5d60.tar.bz2
[svn-r12347] Purpose: Maintenance/bug fix
Description: When --enable-group-revision flag was used, h5fget_filesize_f function returned different value from expected one. Test failed with false negative result. Solution: Added Fortran function h5_group_revision_f and its C stub to check if macro H5_GROUP_REVISION is defined. Expected value from h5fget_filesize_f is set up accordingly. Platforms tested: copper, shanti and heping with and without --enable-group-revision configuration flag Misc. update:
Diffstat (limited to 'fortran/test/tf.f90')
-rw-r--r--fortran/test/tf.f9036
1 files changed, 36 insertions, 0 deletions
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