Merge with develop (#2790)

1 files changed, 14 insertions, 13 deletions

diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90
index 11ac349..3b451d0 100644
--- a/fortran/src/H5VLff.F90
+++ b/fortran/src/H5VLff.F90
@@ -64,7 +64,8 @@ CONTAINS
     CHARACTER(LEN=*), INTENT(IN) :: name
     INTEGER(HID_T), INTENT(OUT) :: vol_id
     INTEGER, INTENT(OUT) :: hdferr
-    INTEGER(HID_T), OPTIONAL, INTENT(IN) :: vipl_id
+    INTEGER(HID_T), INTENT(IN), OPTIONAL :: vipl_id
+
     CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name
     INTEGER(HID_T) :: vipl_id_default
 
@@ -73,8 +74,8 @@ CONTAINS
             BIND(C,NAME='H5VLregister_connector_by_name')
          IMPORT :: C_CHAR
          IMPORT :: HID_T
-         CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name
-         INTEGER(HID_T), INTENT(IN), VALUE :: vipl_id
+         CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
+         INTEGER(HID_T), VALUE :: vipl_id
        END FUNCTION H5VLregister_connector_by_name
     END INTERFACE
 
@@ -105,7 +106,7 @@ CONTAINS
     INTEGER, INTENT(IN) :: connector_value
     INTEGER(HID_T), INTENT(OUT) :: vol_id
     INTEGER, INTENT(OUT) :: hdferr
-    INTEGER(HID_T), OPTIONAL, INTENT(IN) :: vipl_id
+    INTEGER(HID_T), INTENT(IN), OPTIONAL :: vipl_id
     INTEGER(HID_T) :: vipl_id_default
 
     INTERFACE
@@ -114,7 +115,7 @@ CONTAINS
          IMPORT :: HID_T
          IMPORT :: C_INT
          INTEGER(C_INT), VALUE :: connector_value
-         INTEGER(HID_T), INTENT(IN), VALUE :: vipl_id
+         INTEGER(HID_T), VALUE :: vipl_id
        END FUNCTION H5VLregister_connector_by_value
     END INTERFACE
 
@@ -151,7 +152,7 @@ CONTAINS
        INTEGER(C_INT) FUNCTION H5VLis_connector_registered_by_name(name) BIND(C,NAME='H5VLis_connector_registered_by_name')
          IMPORT :: C_CHAR
          IMPORT :: C_INT
-         CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name
+         CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
        END FUNCTION H5VLis_connector_registered_by_name
     END INTERFACE
 
@@ -219,7 +220,7 @@ CONTAINS
     INTERFACE
        INTEGER(HID_T) FUNCTION H5VLget_connector_id(obj_id) BIND(C,NAME='H5VLget_connector_id')
          IMPORT :: HID_T
-         INTEGER(HID_T), INTENT(IN) :: obj_id
+         INTEGER(HID_T), VALUE :: obj_id
        END FUNCTION H5VLget_connector_id
     END INTERFACE
 
@@ -254,7 +255,7 @@ CONTAINS
        INTEGER(HID_T) FUNCTION H5VLget_connector_id_by_name(name) BIND(C,NAME='H5VLget_connector_id_by_name')
          IMPORT :: C_CHAR
          IMPORT :: HID_T
-         CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name
+         CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
        END FUNCTION H5VLget_connector_id_by_name
     END INTERFACE
 
@@ -327,9 +328,9 @@ CONTAINS
        INTEGER(SIZE_T) FUNCTION H5VLget_connector_name(obj_id, name, size) BIND(C,NAME='H5VLget_connector_name')
          IMPORT :: HID_T, SIZE_T, C_PTR, C_CHAR
          IMPLICIT NONE
-         INTEGER(HID_T) , INTENT(IN), VALUE :: obj_id
-         CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: name
-         INTEGER(SIZE_T), INTENT(IN), VALUE :: size
+         INTEGER(HID_T) , VALUE :: obj_id
+         CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
+         INTEGER(SIZE_T), VALUE :: size
        END FUNCTION H5VLget_connector_name
     END INTERFACE
 
@@ -367,7 +368,7 @@ CONTAINS
     INTERFACE
        INTEGER FUNCTION H5VLclose(vol_id) BIND(C, NAME='H5VLclose')
          IMPORT :: HID_T
-         INTEGER(HID_T), INTENT(IN), VALUE :: vol_id
+         INTEGER(HID_T), VALUE :: vol_id
        END FUNCTION H5VLclose
     END INTERFACE
 
@@ -393,7 +394,7 @@ CONTAINS
     INTERFACE
        INTEGER FUNCTION H5VLunregister_connector(plugin_id) BIND(C, NAME='H5VLunregister_connector')
          IMPORT :: HID_T
-         INTEGER(HID_T), INTENT(IN), VALUE :: plugin_id
+         INTEGER(HID_T), VALUE :: plugin_id
        END FUNCTION H5VLunregister_connector
     END INTERFACE