[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2a1-7-g30e4046

[Service Account]

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/30e40464c9beca4c57b4ee2153a9e0bcc8cbc77b

commit 30e40464c9beca4c57b4ee2153a9e0bcc8cbc77b
Author: Junchao Zhang <jczhang at mcs.anl.gov>
Date:   Thu Sep 11 13:20:23 2014 -0500

    Fix an "unused variable" warning in F77/90 MPI_PCONTROL
    
    Signed-off-by: Rob Latham <robl at mcs.anl.gov>

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