diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-19 19:14:19 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-19 19:14:19 (GMT) |
| commit | c26d21bb63aef6376736dbe57e285bd5cbc6dad9 (patch) | |
| tree | d37d83f73182e2a36d2b32e61999f83d436da1bf /fortran/src/H5Rff_F03.f90 | |
| parent | db64e760565d89bafd26515d2579928a53a60f24 (diff) | |
| download | hdf5-c26d21bb63aef6376736dbe57e285bd5cbc6dad9.zip hdf5-c26d21bb63aef6376736dbe57e285bd5cbc6dad9.tar.gz hdf5-c26d21bb63aef6376736dbe57e285bd5cbc6dad9.tar.bz2 | |
[svn-r26481] Removed compiler warnings. HDF5-239
Tested: h5committest.
Diffstat (limited to 'fortran/src/H5Rff_F03.f90')
| -rw-r--r-- | fortran/src/H5Rff_F03.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/src/H5Rff_F03.f90 b/fortran/src/H5Rff_F03.f90 index 9ee815f..8f40607 100644 --- a/fortran/src/H5Rff_F03.f90 +++ b/fortran/src/H5Rff_F03.f90 @@ -551,7 +551,7 @@ CONTAINS INTEGER(HID_T), INTENT(IN) :: loc_id TYPE(hobj_ref_t_f), INTENT(IN), TARGET :: ref INTEGER(SIZE_T), OPTIONAL, INTENT(OUT) :: size - CHARACTER(LEN=*), INTENT(OUT) :: name + CHARACTER(LEN=*), INTENT(INOUT) :: name INTEGER, INTENT(OUT) :: hdferr !***** @@ -598,7 +598,7 @@ CONTAINS INTEGER(HID_T), INTENT(IN) :: loc_id TYPE(hdset_reg_ref_t_f), INTENT(IN), TARGET :: ref INTEGER(SIZE_T), OPTIONAL, INTENT(OUT) :: size - CHARACTER(LEN=*), INTENT(OUT) :: name + CHARACTER(LEN=*), INTENT(INOUT) :: name INTEGER, INTENT(OUT) :: hdferr !***** INTEGER(SIZE_T) :: size_default @@ -647,7 +647,7 @@ CONTAINS INTEGER(HID_T), INTENT(IN) :: loc_id INTEGER, INTENT(IN) :: ref_type TYPE(C_PTR), INTENT(IN) :: ref - CHARACTER(LEN=*), INTENT(OUT) :: name + CHARACTER(LEN=*), INTENT(INOUT) :: name INTEGER, INTENT(OUT) :: hdferr INTEGER(SIZE_T), OPTIONAL, INTENT(OUT) :: size !***** |