few fortran fixes from code review

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

Author: naughtont3

ompi/mpi/fortran/mpif-h/remove_error_code_f.c

@@ -70,6 +70,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_REMOVE_ERROR_CODE,
 void ompi_remove_error_code_f(MPI_Fint *errorcode, MPI_Fint *ierr)
 {
     int ierr_c;
+    OMPI_SINGLE_NAME_DECL(errorcode);
 
     ierr_c = PMPI_Remove_error_code(OMPI_FINT_2_INT(*errorcode));
 

ompi/mpi/fortran/mpif-h/remove_error_string_f.c

@@ -23,9 +23,6 @@
 #include "ompi_config.h"
 
 #include "ompi/mpi/fortran/mpif-h/bindings.h"
-#include "ompi/mpi/fortran/base/constants.h"
-#include "ompi/mpi/fortran/base/fortran_base_strings.h"
-#include "ompi/communicator/communicator.h"
 
 #if OMPI_BUILD_MPI_PROFILING
 #if OPAL_HAVE_WEAK_SYMBOLS

ompi/mpi/fortran/use-mpi-f08/remove_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(OUT) :: errorclass
+   INTEGER, INTENT(IN) :: errorclass
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror
 

ompi/mpi/fortran/use-mpi-f08/remove_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(OUT) :: errorcode
+   INTEGER, INTENT(IN) :: errorcode
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror