From c6cf561a1738a37b42a5d183b7cfe0fecf6ddfe1 Mon Sep 17 00:00:00 2001 From: Brian Barrett Date: Thu, 19 Jul 2012 21:29:18 +0000 Subject: [PATCH] remove unneeded rank This commit was SVN r26813. --- ompi/mpi/fortran/mpif-h/ibarrier_f.c | 1 - 1 file changed, 1 deletion(-) 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);