diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-15 22:34:43 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-15 22:34:43 (GMT) |
| commit | 0d5bd9fe3ac79d53cb923a689935a409bb266f05 (patch) | |
| tree | c09c1cda28d37cb52cb40b871d22a71625b0ea22 /fortran/test/tf.f90 | |
| parent | 4f6535b588e96b23d4c019fd90feb90362332340 (diff) | |
| download | hdf5-0d5bd9fe3ac79d53cb923a689935a409bb266f05.zip hdf5-0d5bd9fe3ac79d53cb923a689935a409bb266f05.tar.gz hdf5-0d5bd9fe3ac79d53cb923a689935a409bb266f05.tar.bz2 | |
[svn-r6685]
Purpose: Added copyright statement; cleaned code and fixed bugs for
Windows and Cray T90IEEE
Description: Windows and Cray ports exposed few typos in the source code
that caused tests to fail
Solution: Added copyright statement and clean the code.
Platforms tested: CRAY T90IEEE, arabica, modi4 with parallel, Windows 2000
Only static tests (both debug and release) passed on Windows.
DLLs have multiple problems ;-)
Misc. update:
Diffstat (limited to 'fortran/test/tf.f90')
| -rw-r--r-- | fortran/test/tf.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90 index ef4c784..828785c 100644 --- a/fortran/test/tf.f90 +++ b/fortran/test/tf.f90 @@ -18,6 +18,10 @@ ! This file contains subroutines which are used in ! all the hdf5 fortran tests ! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: check +!DEC$endif SUBROUTINE check(string,error,total_error) CHARACTER(LEN=*) :: string @@ -51,6 +55,10 @@ !---------------------------------------------------------------------- SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr) ! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5_fixname_f +!DEC$endif USE H5GLOBAL IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name @@ -107,6 +115,10 @@ !---------------------------------------------------------------------- SUBROUTINE h5_cleanup_f(base_name, fapl, hdferr) ! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5_cleanup_f +!DEC$endif USE H5GLOBAL IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name |