diff --git a/ompi/mpi/fortran/mpif-h/ibarrier_f.c b/ompi/mpi/fortran/mpif-h/ibarrier_f.c
index dbb6e37d33..f8d0e124db 100644
--- a/ompi/mpi/fortran/mpif-h/ibarrier_f.c
+++ b/ompi/mpi/fortran/mpif-h/ibarrier_f.c
@@ -69,7 +69,6 @@ void ompi_ibarrier_f(MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr)
     int ierr_c;
     MPI_Comm c_comm;
     MPI_Request c_req;
-    volatile int rank;
 
     c_comm = MPI_Comm_f2c(*comm);