diff options
| author | MuQun Yang <ymuqun@hdfgroup.org> | 2004-10-27 22:46:14 (GMT) |
|---|---|---|
| committer | MuQun Yang <ymuqun@hdfgroup.org> | 2004-10-27 22:46:14 (GMT) |
| commit | a457cd03e7f4b4538549d740903fd5b78a5eed6e (patch) | |
| tree | baccc505e5ab3b34739aa70e9c3859e3c6020cfe /fortran | |
| parent | babfbc2f9df2233f61e12cc3c153627e319f0e8f (diff) | |
| download | hdf5-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')
| -rw-r--r-- | fortran/test/t.h | 4 | ||||
| -rw-r--r-- | fortran/test/tf.f90 | 5 |
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 |