summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorM. Scot Breitenfeld <brtnfld@hdfgroup.org>2017-11-29 16:08:10 (GMT)
committerM. Scot Breitenfeld <brtnfld@hdfgroup.org>2017-11-29 16:08:10 (GMT)
commit4f7af1390ba62553278dc64b65f44b8efd870b83 (patch)
tree6697897f0feab7b93878b162b18c9308ff78815c
parentcaaca121bd632cf3b39bbb804070db313896eb29 (diff)
downloadhdf5-4f7af1390ba62553278dc64b65f44b8efd870b83.zip
hdf5-4f7af1390ba62553278dc64b65f44b8efd870b83.tar.gz
hdf5-4f7af1390ba62553278dc64b65f44b8efd870b83.tar.bz2
misc. clean-up
-rw-r--r--fortran/src/H5f90global.F904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5f90global.F90 b/fortran/src/H5f90global.F90
index d4a9008..4a04971 100644
--- a/fortran/src/H5f90global.F90
+++ b/fortran/src/H5f90global.F90
@@ -83,7 +83,8 @@ MODULE H5GLOBAL
INTEGER, PARAMETER :: INTEGER_TYPES_LEN = 27
! These arrays need to be global because they are used in
- ! both h5open_f and in h5close_f
+ ! both h5open_f and in h5close_f; initialize to fix linking issues
+ ! on OSX and Intel compilers.
INTEGER(HID_T), DIMENSION(1:PREDEF_TYPES_LEN) :: predef_types = -1
INTEGER(HID_T), DIMENSION(1:FLOATING_TYPES_LEN) :: floating_types = -1
INTEGER(HID_T), DIMENSION(1:INTEGER_TYPES_LEN) :: integer_types = -1
@@ -437,7 +438,6 @@ MODULE H5GLOBAL
INTEGER :: H5_SZIP_EC_OM_F
INTEGER :: H5_SZIP_NN_OM_F
-
CONTAINS
! Copy a c string to a Fortran string