commit 0cb79edc3411c0e04e411d7c8f60a6596632a4ea
Author: François Trahay <francois.trahay@telecom-sudparis.eu>
Date:   Thu Oct 23 09:56:37 2014 +0200

    fix multiple MPI_Fint*to pointer/int conversion errors in the Fortran MPI interface

diff --git a/src/modules/mpi/mpi_fortran.c b/src/modules/mpi/mpi_fortran.c
index 61cb807..6997db4 100644
--- a/src/modules/mpi/mpi_fortran.c
+++ b/src/modules/mpi/mpi_fortran.c
@@ -104,13 +104,13 @@ void mpif_comm_dup_with_info_(MPI_Fint *comm, MPI_Fint *info, MPI_Fint *newcomm,
   MPI_Comm comm_c = MPI_Comm_f2c(*comm);
   MPI_Comm newcomm_c;
 
-  *error = MPI_Comm_dup_with_info(comm_c, info, &newcomm_c);
+  *error = MPI_Comm_dup_with_info(comm_c, *info, &newcomm_c);
 
   *newcomm = MPI_Comm_c2f(newcomm_c);
 }
 
-int mpif_comm_split_type_(MPI_Fint* comm, int* split_type, int* key,
-			  int* info, MPI_Fint* *newcomm, int*error) {
+void mpif_comm_split_type_(MPI_Fint* comm, int* split_type, int* key,
+			  int* info, MPI_Fint *newcomm, int*error) {
   MPI_Comm comm_c = MPI_Comm_f2c(*comm);
   MPI_Comm newcomm_c;
 
@@ -178,8 +178,8 @@ void mpif_dist_graph_create_(MPI_Fint* comm_old, int*n, int *sources,
   MPI_Comm comm_old_c = MPI_Comm_f2c(*comm_old);
   MPI_Comm comm_dist_graph_c;
 
-  error = MPI_Dist_graph_create(comm_old_c, *n, sources, degrees, destinations,
-				 weights, *info, *reorder, comm_dist_graph_c);
+  *error = MPI_Dist_graph_create(comm_old_c, *n, sources, degrees, destinations,
+				 weights, *info, *reorder, &comm_dist_graph_c);
   *comm_dist_graph = MPI_Comm_c2f(comm_dist_graph_c);
 }
 
@@ -191,10 +191,10 @@ void mpif_dist_graph_create_adjacent_(MPI_Fint* comm_old, int* indegree,
   MPI_Comm comm_old_c = MPI_Comm_f2c(*comm_old);
   MPI_Comm comm_dist_graph_c;
 
-  error = MPI_Dist_graph_create_adjacent(comm_old_c, *indegree, sources,
+  *error = MPI_Dist_graph_create_adjacent(comm_old_c, *indegree, sources,
 					  sourceweights, *outdegree,
 					  destinations, destweights,
-					  *info, *reorder, comm_dist_graph_c);
+					  *info, *reorder, &comm_dist_graph_c);
 
   *comm_dist_graph = MPI_Comm_c2f(comm_dist_graph_c);
 }
