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 004a5078374078d160e93b9024a46a4b463340b5 (commit) from 6b4405ef1d44d766299594d8a5e92332735252af (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/004a5078374078d160e93b9024a46a4b46... commit 004a5078374078d160e93b9024a46a4b463340b5 Author: Junchao Zhang <[email protected]> Date: Thu Jul 24 17:30:32 2014 -0500 Changed comments from fixed form C to free form ! Usually, Fortran compilers treat .f files as fixed-form F77 code. An exception in IBM XLF. Using xlf90 to compile setbotf.f with "C ..." style comments will give errors. This patch replaces C with !, which makes setbotf.f both fixed-form and free-form compatible. Tests showed ! in fixed-form is accepted by all compilers of interest. So xlf90 can still think setbotf.f be free-formed. Fixes #2109. Signed-off-by: Antonio J. Pena <[email protected]> diff --git a/src/binding/fortran/mpif_h/setbotf.f.in b/src/binding/fortran/mpif_h/setbotf.f.in index 893c5a4..706aebf 100644 --- a/src/binding/fortran/mpif_h/setbotf.f.in +++ b/src/binding/fortran/mpif_h/setbotf.f.in @@ -1,16 +1,16 @@ -C -*- Mode: Fortran; -*- -C -C (C) 2001 by Argonne National Laboratory. -C See COPYRIGHT in top-level directory. -C +! -*- Mode: Fortran; -*- +! +! (C) 2001 by Argonne National Laboratory. +! See COPYRIGHT in top-level directory. +! subroutine mpirinitf( ) integer mpi_status_size parameter (mpi_status_size=@MPI_STATUS_SIZE@) -C STATUS_IGNORE, STATUSES_IGNORE +! STATUS_IGNORE, STATUSES_IGNORE integer si(mpi_status_size), ssi(mpi_status_size,1) -C BOTTOM, IN_PLACE, UNWEIGHTED, ERRCODES_IGNORE +! BOTTOM, IN_PLACE, UNWEIGHTED, ERRCODES_IGNORE integer bt, ip, uw, ecsi(1) -C ARGVS_NULL, ARGV_NULL +! ARGVS_NULL, ARGV_NULL character*1 asn(1,1), an(1) common /MPIFCMB5/ uw common /MPIFCMB9/ we @@ -21,8 +21,8 @@ C ARGVS_NULL, ARGV_NULL save /MPIFCMB9/ save /MPIPRIV1/, /MPIPRIV2/ save /MPIPRIVC/ -C MPI_ARGVS_NULL -C (Fortran requires character data in a separate common block) +! MPI_ARGVS_NULL +! (Fortran requires character data in a separate common block) call mpirinitc(si, ssi, bt, ip, uw, ecsi, asn, we) call mpirinitc2(an) return ----------------------------------------------------------------------- Summary of changes: src/binding/fortran/mpif_h/setbotf.f.in | 20 ++++++++++---------- 1 files changed, 10 insertions(+), 10 deletions(-) hooks/post-receive -- MPICH primary repository