summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-01-09 16:40:18 (GMT)
committerM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-01-09 16:40:18 (GMT)
commit51d911a7f8cd86bb2f4ed4e54e67da6c425efcee (patch)
tree67523775e5d1249ff8e3ab7d9cb84a85e0670b16
parent3e142c802d1491bc97cf052a5554449f3a9e8a1a (diff)
downloadhdf5-51d911a7f8cd86bb2f4ed4e54e67da6c425efcee.zip
hdf5-51d911a7f8cd86bb2f4ed4e54e67da6c425efcee.tar.gz
hdf5-51d911a7f8cd86bb2f4ed4e54e67da6c425efcee.tar.bz2
fix for xlf compiler
-rw-r--r--fortran/src/H5_ff.F903
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90
index a66ac95..84529e4 100644
--- a/fortran/src/H5_ff.F90
+++ b/fortran/src/H5_ff.F90
@@ -940,10 +940,11 @@ CONTAINS
INTEGER(C_INT), DIMENSION(:), POINTER :: c_time
INTERFACE
- TYPE(C_PTR) FUNCTION gmtime(stdtime_t) BIND(C, NAME='gmtime')
+ FUNCTION gmtime(stdtime_t) BIND(C, NAME='gmtime')
IMPORT :: TIME_T, C_PTR
IMPLICIT NONE
INTEGER(KIND=TIME_T) :: stdtime_t
+ TYPE(C_PTR) :: gmtime
END FUNCTION gmtime
END INTERFACE