fix fortran intent error

Signed-off-by: Thomas Naughton <[email protected]>

Author: naughtont3

ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h

@@ -398,14 +398,14 @@ end subroutine ompi_recv_init_f
 subroutine ompi_remove_error_class_f(errorclass,ierror) &
    BIND(C, name="ompi_remove_error_class_f")
    implicit none
-   INTEGER, INTENT(OUT) :: errorclass
+   INTEGER, INTENT(IN) :: errorclass
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_remove_error_class_f
 
 subroutine ompi_remove_error_code_f(errorcode,ierror) &
    BIND(C, name="ompi_remove_error_code_f")
    implicit none
-   INTEGER, INTENT(OUT) :: errorcode
+   INTEGER, INTENT(IN) :: errorcode
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_remove_error_code_f
 

ompi/mpi/fortran/use-mpi-f08/remove_error_class_f08.F90

@@ -13,7 +13,7 @@
 subroutine MPI_Remove_error_class_f08(errorclass,ierror)
    use :: ompi_mpifh_bindings, only : ompi_remove_error_class_f
    implicit none
-   INTEGER, INTENT(INOUT) :: errorclass
+   INTEGER, INTENT(IN) :: errorclass
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror
 

ompi/mpi/fortran/use-mpi-f08/remove_error_code_f08.F90

@@ -13,7 +13,7 @@
 subroutine MPI_Remove_error_code_f08(errorcode,ierror)
    use :: ompi_mpifh_bindings, only : ompi_remove_error_code_f
    implicit none
-   INTEGER, INTENT(INOUT) :: errorcode
+   INTEGER, INTENT(IN) :: errorcode
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror