Blob Blame History Raw
--- mpitests-3.2/IMB-3.2/src/IMB_window.c.orig	2013-02-25 15:50:55.000000000 -0500
+++ mpitests-3.2/IMB-3.2/src/IMB_window.c	2013-02-25 15:51:22.000000000 -0500
@@ -140,6 +140,9 @@ Output variables: 
                          c_info->rank, 0, 1, c_info->r_data_type, c_info->WIN);
           MPI_ERRHAND(ierr);
           }
+          /* Added a call to MPI_WIN_FENCE, per MPI-2.1 11.2.1 */
+          ierr = MPI_Win_fence(0, c_info->WIN);
+          MPI_ERRHAND(ierr);
           ierr = MPI_Win_free(&c_info->WIN);
           MPI_ERRHAND(ierr);
 	}