From f210c86df3b887ef672a2f4f160fe60abec26eb0 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Mon, 28 Nov 2011 23:15:42 -0500 Subject: [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) --- fortran/src/H5Dff.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v0.12