diff options
| author | MuQun Yang <ymuqun@hdfgroup.org> | 2004-10-28 16:01:12 (GMT) |
|---|---|---|
| committer | MuQun Yang <ymuqun@hdfgroup.org> | 2004-10-28 16:01:12 (GMT) |
| commit | 7d99dee1361393784b28d1e922834443b936133d (patch) | |
| tree | 3c2125c5382be6f29fdf4b6a83c2eb520003cc0c | |
| parent | f733047affdca1575fed02f4a6feaf65efd815ab (diff) | |
| download | hdf5-7d99dee1361393784b28d1e922834443b936133d.zip hdf5-7d99dee1361393784b28d1e922834443b936133d.tar.gz hdf5-7d99dee1361393784b28d1e922834443b936133d.tar.bz2 | |
[svn-r9480] Purpose:
Fix small fortran bug,
Add DLL token to export and import functions.
Description:
rountine "verify" is not exported for DEC fortran.
Two routines at t.c need to be exported.
Solution:
Platforms tested:
XP(VC 6.0 + DEC Fortran 6.6c)
Heping(Linux 2.4 gcc+pgf90)
Misc. update:
| -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..2dd5545 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 |