diff options
| -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 |