summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-21 20:59:45 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-21 20:59:45 (GMT)
commitf981d2e11e67150fc03f9ab58e8d93ddb7504e92 (patch)
tree65d6b1076a063475bde513e1056b82f44c4d3772
parent1ba402214dab7349a94c809dbe5290c3ea359e33 (diff)
downloadhdf5-f981d2e11e67150fc03f9ab58e8d93ddb7504e92.zip
hdf5-f981d2e11e67150fc03f9ab58e8d93ddb7504e92.tar.gz
hdf5-f981d2e11e67150fc03f9ab58e8d93ddb7504e92.tar.bz2
[svn-r26876] changed argument to SIZEOF.
-rw-r--r--fortran/src/H5Pff.F904
-rw-r--r--fortran/test/tf.F904
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