Completed fortran wrappers.

This commit was SVN r1466.

src/mpi/f77/status_set_cancelled_f.c

@@ -49,4 +49,12 @@ OMPI_GENERATE_F77_BINDINGS (MPI_STATUS_SET_CANCELLED,
 void mpi_status_set_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr)
 {
 
+    MPI_Status c_status;
+
+    MPI_Status_f2c( status, &c_status );
+
+    *ierr = MPI_Status_set_cancelled(&c_status, *flag);
+
+    if (*ierr == MPI_SUCCESS)
+        MPI_Status_c2f(&c_status, status);
 }

src/mpi/f77/test_cancelled_f.c

@@ -48,10 +48,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TEST_CANCELLED,
 
 void mpi_test_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr)
 {
-  MPI_Status c_status;
+    MPI_Status c_status;
 
-  *ierr = MPI_Test_cancelled(&c_status, flag);
+    MPI_Status_f2c( status, &c_status );
 
-  if (*ierr == MPI_SUCCESS)
-      MPI_Status_c2f(&c_status, status);
+    *ierr = MPI_Test_cancelled(&c_status, flag);
 }