diff options
author | MuQun Yang <ymuqun@hdfgroup.org> | 2004-04-22 14:50:57 (GMT) |
---|---|---|
committer | MuQun Yang <ymuqun@hdfgroup.org> | 2004-04-22 14:50:57 (GMT) |
commit | 0eeb50005c8589f92c26500fd566daf0667e675a (patch) | |
tree | 0b2e03db7fb70d4784d498259ffe84e57629d1ec /fortran/test | |
parent | 1555c1ae0a9113eb99074e9b0da0d2363d7251b0 (diff) | |
download | hdf5-0eeb50005c8589f92c26500fd566daf0667e675a.zip hdf5-0eeb50005c8589f92c26500fd566daf0667e675a.tar.gz hdf5-0eeb50005c8589f92c26500fd566daf0667e675a.tar.bz2 |
[svn-r8401] Purpose:
macro change
Description:
$FOODEC cannot be recognized by DEC visual fortran.
change it back to $DEC.
Solution:
Platforms tested:
windows 2000 visual fortran, doesn't need to be tested on other platforms since it is
windows specific.
Misc. update:
Diffstat (limited to 'fortran/test')
-rw-r--r-- | fortran/test/tf.f90 | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90 index a389287..3a8a3ee 100644 --- a/fortran/test/tf.f90 +++ b/fortran/test/tf.f90 @@ -18,9 +18,9 @@ ! all the hdf5 fortran tests ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: check -!FooDECSendif +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: check +!DEC$endif SUBROUTINE check(string,error,total_error) CHARACTER(LEN=*) :: string @@ -65,9 +65,9 @@ SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5_fixname_f -!FooDECSendif +!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 @@ -83,11 +83,11 @@ INTEGER FUNCTION h5_fixname_c(base_name, base_namelen, fapl, & full_name, full_namelen) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5_FIXNAME_C':: h5_fixname_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: base_name - !FooDECSATTRIBUTES reference :: full_name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5_FIXNAME_C':: h5_fixname_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: base_name + !DEC$ATTRIBUTES reference :: full_name CHARACTER(LEN=*), INTENT(IN) :: base_name INTEGER :: base_namelen INTEGER(HID_T), INTENT(IN) :: fapl @@ -125,9 +125,9 @@ SUBROUTINE h5_cleanup_f(base_name, fapl, hdferr) ! !This definition is needed for Windows DLLs -!FooDECSif defined(BUILD_HDF5_DLL) -!FooDECSattributes dllexport :: h5_cleanup_f -!FooDECSendif +!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 @@ -139,10 +139,10 @@ INTERFACE INTEGER FUNCTION h5_cleanup_c(base_name, base_namelen, fapl) USE H5GLOBAL - !FooDECS IF DEFINED(HDF5F90_WINDOWS) - !FooMSSATTRIBUTES C,reference,alias:'_H5_CLEANUP_C':: h5_cleanup_c - !FooDECS ENDIF - !FooDECSATTRIBUTES reference :: base_name + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5_CLEANUP_C':: h5_cleanup_c + !DEC$ ENDIF + !DEC$ATTRIBUTES reference :: base_name CHARACTER(LEN=*), INTENT(IN) :: base_name INTEGER :: base_namelen INTEGER(HID_T), INTENT(IN) :: fapl |