diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-21 20:59:45 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-21 20:59:45 (GMT) |
| commit | f981d2e11e67150fc03f9ab58e8d93ddb7504e92 (patch) | |
| tree | 65d6b1076a063475bde513e1056b82f44c4d3772 | |
| parent | 1ba402214dab7349a94c809dbe5290c3ea359e33 (diff) | |
| download | hdf5-f981d2e11e67150fc03f9ab58e8d93ddb7504e92.zip hdf5-f981d2e11e67150fc03f9ab58e8d93ddb7504e92.tar.gz hdf5-f981d2e11e67150fc03f9ab58e8d93ddb7504e92.tar.bz2 | |
[svn-r26876] changed argument to SIZEOF.
| -rw-r--r-- | fortran/src/H5Pff.F90 | 4 | ||||
| -rw-r--r-- | fortran/test/tf.F90 | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index 35f0827..3b40757 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -7433,8 +7433,8 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) BIND(C,NAME='h5pset_fapl_mpio_c') IMPORT :: HID_T IMPLICIT NONE - INTEGER(HID_T), INTENT(IN) :: prp_id - INTEGER , INTENT(IN) :: comm + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER , INTENT(IN) :: comm INTEGER , INTENT(IN) :: info END FUNCTION h5pset_fapl_mpio_c END INTERFACE diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index aabccd3..109c62e 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -461,9 +461,9 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: a #ifdef H5_FORTRAN_HAVE_STORAGE_SIZE - H5_SIZEOF_CHR = storage_size(a, c_size_t)/storage_size(c_char_'a',c_size_t) + H5_SIZEOF_CHR = storage_size(a(1:1), c_size_t)/storage_size(c_char_'a',c_size_t) #else - H5_SIZEOF_CHR = SIZEOF(a) + H5_SIZEOF_CHR = SIZEOF(a(1:1)) #endif END FUNCTION H5_SIZEOF_CHR |