temporary fix for fortran error handlers

Signed-off-by: Howard Pritchard <hppritcha@gmail.com>
(cherry picked from commit 04314a099d819091a4b2e15fcb22dbddfc5c809e)

Author: hppritcha

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

@@ -74,10 +74,10 @@ void ompi_comm_create_errhandler_f(ompi_errhandler_fortran_handler_fn_t *functio
 				  MPI_Fint *errhandler, MPI_Fint *ierr)
 {
     int c_ierr;
-    MPI_Errhandler c_errhandler =
-        ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_COMM,
+    MPI_Errhandler c_errhandler;
+    c_ierr = ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_COMM,
                                (ompi_errhandler_generic_handler_fn_t*) function,
-                               OMPI_ERRHANDLER_LANG_FORTRAN);
+                               OMPI_ERRHANDLER_LANG_FORTRAN, &c_errhandler);
     if (MPI_ERRHANDLER_NULL != c_errhandler) {
         *errhandler = PMPI_Errhandler_c2f(c_errhandler);
         c_ierr = MPI_SUCCESS;

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

@@ -74,10 +74,10 @@ void ompi_file_create_errhandler_f(ompi_errhandler_fortran_handler_fn_t* functio
 				  MPI_Fint *errhandler, MPI_Fint *ierr)
 {
     int c_ierr;
-    MPI_Errhandler c_errhandler =
-        ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_FILE,
+    MPI_Errhandler c_errhandler;
+    c_ierr = ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_FILE,
                                (ompi_errhandler_generic_handler_fn_t*) function,
-                               OMPI_ERRHANDLER_LANG_FORTRAN);
+                               OMPI_ERRHANDLER_LANG_FORTRAN, &c_errhandler);
     if (MPI_ERRHANDLER_NULL != c_errhandler) {
         *errhandler = PMPI_Errhandler_c2f(c_errhandler);
         c_ierr = MPI_SUCCESS;

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

@@ -73,10 +73,12 @@ static const char FUNC_NAME[] = "MPI_WIN_CREATE_ERRHANDLER";
 void ompi_win_create_errhandler_f(ompi_errhandler_fortran_handler_fn_t* function,
 				 MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-    MPI_Errhandler c_errhandler =
-        ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_WIN,
+    int c_ierr;
+    MPI_Errhandler c_errhandler;
+
+    c_ierr = ompi_errhandler_create(OMPI_ERRHANDLER_TYPE_WIN,
                                (ompi_errhandler_generic_handler_fn_t*) function,
-                               OMPI_ERRHANDLER_LANG_FORTRAN);
+                               OMPI_ERRHANDLER_LANG_FORTRAN, &c_errhandler);
     if (MPI_ERRHANDLER_NULL != c_errhandler) {
         *errhandler = PMPI_Errhandler_c2f(c_errhandler);
         if (NULL != ierr) *ierr = OMPI_INT_2_FINT(MPI_SUCCESS);