diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-01-09 16:40:18 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-01-09 16:40:18 (GMT) |
| commit | 51d911a7f8cd86bb2f4ed4e54e67da6c425efcee (patch) | |
| tree | 67523775e5d1249ff8e3ab7d9cb84a85e0670b16 | |
| parent | 3e142c802d1491bc97cf052a5554449f3a9e8a1a (diff) | |
| download | hdf5-51d911a7f8cd86bb2f4ed4e54e67da6c425efcee.zip hdf5-51d911a7f8cd86bb2f4ed4e54e67da6c425efcee.tar.gz hdf5-51d911a7f8cd86bb2f4ed4e54e67da6c425efcee.tar.bz2 | |
fix for xlf compiler
| -rw-r--r-- | fortran/src/H5_ff.F90 | 3 |
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 |