This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via 30e40464c9beca4c57b4ee2153a9e0bcc8cbc77b (commit) from 333610f04ec4a6eda2f23779fd98f97e18408815 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/30e40464c9beca4c57b4ee2153a9e0bcc8... commit 30e40464c9beca4c57b4ee2153a9e0bcc8cbc77b Author: Junchao Zhang <[email protected]> Date: Thu Sep 11 13:20:23 2014 -0500 Fix an "unused variable" warning in F77/90 MPI_PCONTROL Signed-off-by: Rob Latham <[email protected]> diff --git a/src/binding/fortran/mpif_h/buildiface b/src/binding/fortran/mpif_h/buildiface index 3324821..5498459 100755 --- a/src/binding/fortran/mpif_h/buildiface +++ b/src/binding/fortran/mpif_h/buildiface @@ -4197,8 +4197,7 @@ sub build_specials { &print_routine_type_decl( $OUTFD, $out_prefix, "pcontrol" ); print $OUTFD "(MPI_Fint *v1)\n"; print $OUTFD "{\n"; - print $OUTFD " int ierr;\n"; - print $OUTFD " ierr = MPI_Pcontrol( (int)*v1 );\n"; + print $OUTFD " MPI_Pcontrol( (int)*v1 );\n"; print $OUTFD "}\n"; close ($OUTFD); &ReplaceIfDifferent( $filename, $filename . ".new" ); ----------------------------------------------------------------------- Summary of changes: src/binding/fortran/mpif_h/buildiface | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) hooks/post-receive -- MPICH primary repository