diff --git a/ompi/mpi/fortran/mpif-h/ibarrier_f.c b/ompi/mpi/fortran/mpif-h/ibarrier_f.c
index 713aab7ac5..dbb6e37d33 100644
--- a/ompi/mpi/fortran/mpif-h/ibarrier_f.c
+++ b/ompi/mpi/fortran/mpif-h/ibarrier_f.c
@@ -71,16 +71,6 @@ void ompi_ibarrier_f(MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
     MPI_Request c_req;
     volatile int rank;
 
-    {
-        static int first = 1;
-        if (first) {
-            rank = 0;
-            printf("PID %d waiting\n", getpid());
-            while (0 == rank) sleep(5);
-        }
-        first = 0;
-    }
-
     c_comm = MPI_Comm_f2c(*comm);
 
     ierr_c = MPI_Ibarrier(c_comm, &c_req);