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 3d3a4b3a1038f7809ffdba5a7ebe1e02a7325daf (commit) from 71f5e5070c49f5507935016e03953d1eeee73aeb (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/3d3a4b3a1038f7809ffdba5a7ebe1e02a7... commit 3d3a4b3a1038f7809ffdba5a7ebe1e02a7325daf Author: Junchao Zhang <[email protected]> Date: Mon May 26 18:19:52 2014 -0500 Fix a perl script problem met with perl-5.8.8 To print out something like "$vec[$i]->base_addr", where @vec is an integer array, the old perl is confused by "->" and thinks it is an operator. In fact, we just want to print out "->base_addr" literally. Newer perl (e.g., 5.16.2) is fine with this syntax. Change to "$vec[$i]"."->base_addr" to avoid this problem. No review since F08 binding is experimental now. diff --git a/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface b/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface index 2f5620b..2031629 100755 --- a/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface +++ b/src/binding/fortran/use_mpi_f08/wrappers_c/buildiface @@ -550,7 +550,7 @@ EOT # Temp variable declaration for (my $i = 0; $i < $#vec; $i += 3) { - print CFILE " void *buf$vec[$i] = x$vec[$i]->base_addr;\n"; + print CFILE " void *buf$vec[$i] = x$vec[$i]"."->base_addr;\n"; if ($vec[$i + 1] >= 0) { print CFILE " int count$vec[$i] = x$vec[$i+1];\n"; print CFILE " MPI_Datatype dtype$vec[$i] = x$vec[$i+2];\n"; @@ -572,7 +572,7 @@ EOT # Test if a subarray arg is contiguous. If it is, generate a new datatype for it. for (my $i = 0; $i < $#vec; $i += 3) { if ($vec[$i + 1] >= 0) { - print CFILE " if (x$vec[$i]->rank != 0 && !CFI_is_contiguous(x$vec[$i])) {\n"; + print CFILE " if (x$vec[$i]"."->rank != 0 && !CFI_is_contiguous(x$vec[$i])) {\n"; print CFILE " err = cdesc_create_datatype(x$vec[$i], x$vec[$i+1], x$vec[$i+2], &dtype$vec[$i]);\n"; print CFILE " count$vec[$i] = 1;\n"; print CFILE " }\n\n"; ----------------------------------------------------------------------- Summary of changes: .../fortran/use_mpi_f08/wrappers_c/buildiface | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- MPICH primary repository