summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorMuQun Yang <ymuqun@hdfgroup.org>2004-10-27 22:46:14 (GMT)
committerMuQun Yang <ymuqun@hdfgroup.org>2004-10-27 22:46:14 (GMT)
commita457cd03e7f4b4538549d740903fd5b78a5eed6e (patch)
treebaccc505e5ab3b34739aa70e9c3859e3c6020cfe /fortran/test
parentbabfbc2f9df2233f61e12cc3c153627e319f0e8f (diff)
downloadhdf5-a457cd03e7f4b4538549d740903fd5b78a5eed6e.zip
hdf5-a457cd03e7f4b4538549d740903fd5b78a5eed6e.tar.gz
hdf5-a457cd03e7f4b4538549d740903fd5b78a5eed6e.tar.bz2
[svn-r9475] Purpose:
New feature: support fortran DLL on windows. small bug fix. Description: 1. Need to add macro for some functions in order to make fortran DLL work. 2. One routine(verify) missed the special macro DEC FORTRAN needs. Added. Solution: Platforms tested: windows XP with MC VC6.0+Dec 6.6c. Linux 2.4 and h5committest not finished yet. Misc. update:
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/t.h4
-rw-r--r--fortran/test/tf.f905
2 files changed, 7 insertions, 2 deletions
diff --git a/fortran/test/t.h b/fortran/test/t.h
index d6bc968..fca9cb1 100644
--- a/fortran/test/t.h
+++ b/fortran/test/t.h
@@ -29,8 +29,8 @@ char *h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size)
# define nh5_cleanup_c FNAME(h5_cleanup_c)
#endif /* DF_CAPFNAMES */
- H5_DLL int_f nh5_fixname_c
+H5_FCTESTDLL int_f nh5_fixname_c
(_fcd base_name, int_f *base_namelen, hid_t_f *fapl, _fcd full_name, int_f *full_namelen);
- H5_DLL int_f nh5_cleanup_c
+H5_FCTESTDLL int_f nh5_cleanup_c
(_fcd base_name, int_f *base_namelen, hid_t_f *fapl);
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90
index 3a8a3ee..3a72571 100644
--- a/fortran/test/tf.f90
+++ b/fortran/test/tf.f90
@@ -32,6 +32,11 @@
RETURN
END SUBROUTINE check
+
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: verify
+!DEC$endif
SUBROUTINE verify(string,value,correct_value,total_error)
CHARACTER(LEN=*) :: string
INTEGER :: value, correct_value, total_error