diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-11-29 04:15:42 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-11-29 04:15:42 (GMT) |
commit | f210c86df3b887ef672a2f4f160fe60abec26eb0 (patch) | |
tree | ba4dac30f8e040a5a0530ed91f2c93fba6699c32 | |
parent | eada074cc8ff9fad4285f4b2206aefb6e7af02e2 (diff) | |
download | hdf5-f210c86df3b887ef672a2f4f160fe60abec26eb0.zip hdf5-f210c86df3b887ef672a2f4f160fe60abec26eb0.tar.gz hdf5-f210c86df3b887ef672a2f4f160fe60abec26eb0.tar.bz2 |
[svn-r21777] Description:
Changed, INTENT of flag to be OUT instead of IN for h5dget_space_status_f, the value gets changed so it should have intent(OUT), it
is correct in the documentation.
Tested: jam (gnu, intel, pgi)
-rw-r--r-- | fortran/src/H5Dff.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90 index 24917e7..b1e1df1 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -519,7 +519,7 @@ CONTAINS SUBROUTINE h5dget_space_status_f(dset_id, flag, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataspace identifier - INTEGER, INTENT(IN) :: flag ! Memory buffer to fill in + INTEGER, INTENT(OUT) :: flag ! Memory buffer to fill in INTEGER, INTENT(OUT) :: hdferr ! Error code !***** INTERFACE |