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 e9d8bfc07a24e4ebd8b65f578317cae60af0e20c (commit) from 29323e596753dbb455d8c242dd47a5bd8daefde9 (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/e9d8bfc07a24e4ebd8b65f578317cae60a... commit e9d8bfc07a24e4ebd8b65f578317cae60af0e20c Author: Junchao Zhang <[email protected]> Date: Mon Aug 18 15:53:33 2014 -0500 Fix MPI_Aint casting bugs in F77/90 bindings Also added a patch from Bill Gropp to warn about unhandled MPI_Aint. Fixes #2162 Signed-off-by: William Gropp <[email protected]> diff --git a/src/binding/fortran/mpif_h/buildiface b/src/binding/fortran/mpif_h/buildiface index 0221eb6..c9c0577 100755 --- a/src/binding/fortran/mpif_h/buildiface +++ b/src/binding/fortran/mpif_h/buildiface @@ -235,6 +235,16 @@ foreach $_ (@ARGV) { 'get-5' => 'MPI_Aint *', 'alloc_mem-1' => 'MPI_Aint *', 'win_shared_query-3' => 'MPI_Aint *', + 'compare_and_swap-6' => 'MPI_Aint *', + 'fetch_and_op-5' => 'MPI_Aint *', + 'get_accumulate-8' => 'MPI_Aint *', + 'rput-5' => 'MPI_Aint *', + 'rget-5' => 'MPI_Aint *', + 'raccumulate-5' => 'MPI_Aint *', + 'rget_accumulate-8' => 'MPI_Aint *', + 'win_attach-3' => 'MPI_Aint *', + 'win_allocate-1' => 'MPI_Aint *', + 'win_allocate_shared-1' => 'MPI_Aint *', #'status_set_elements_x-3' => 'MPI_Count *', ); @@ -744,6 +754,16 @@ foreach $_ (@ARGV) { 'Put' => '5', 'Put-5' => 'in:aintToVal', 'Get' => '5', 'Get-5' => 'in:aintToVal', 'Alloc_mem' => '1', 'Alloc_mem-1' => 'in:aintToVal', + 'Compare_and_swap' => '6', 'Compare_and_swap-6' => 'in:aintToVal', + 'Fetch_and_op' => '5', 'Fetch_and_op-5' => 'in:aintToVal', + 'Get_accumulate' => '8', 'Get_accumulate-8' => 'in:aintToVal', + 'Rput' => '5', 'Rput-5' => 'in:aintToVal', + 'Rget' => '5', 'Rget-5' => 'in:aintToVal', + 'Raccumulate' => '5', 'Raccumulate-5' => 'in:aintToVal', + 'Rget_accumulate' => '8', 'Rget_accumulate-8' => 'in:aintToVal', + 'Win_attach' => '3', 'Win_attach-3' => 'in:aintToVal', + 'Win_allocate' => '1', 'Win_allocate-1' => 'in:aintToVal', + 'Win_allocate_shared' => '1', 'Win_allocate_shared-1' => 'in:aintToVal', 'Win_get_name' => '2', 'Win_get_name-2' => 'out:blankpad', 'Win_set_name' => '2', 'Win_set_name-2' => 'in:addnull', 'Win_test' => '2', 'Win_test-2' => 'out:logical', @@ -1661,6 +1681,10 @@ sub print_call_args { print $OUTFD "MPI_File_f2c(*v$count)"; } else { + if ($parm =~ /^MPI_Aint$/) { + print STDERR "Warning: Found a cast to MPI_Aint in $routine_name\n"; + print STDERR "This usually means that a conversion from MPI_Aint* to an MPI_Aint value is missing\n"; + } if ($arg_addresses[$count] > 0) { print "Adding ($parm) for $parm\n" if $debug; print $OUTFD "($parm)"; ----------------------------------------------------------------------- Summary of changes: src/binding/fortran/mpif_h/buildiface | 24 ++++++++++++++++++++++++ 1 files changed, 24 insertions(+), 0 deletions(-) hooks/post-receive -- MPICH primary repository