From a457cd03e7f4b4538549d740903fd5b78a5eed6e Mon Sep 17 00:00:00 2001 From: MuQun Yang Date: Wed, 27 Oct 2004 17:46:14 -0500 Subject: [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: --- fortran/test/t.h | 4 ++-- 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 -- cgit v0.12