[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.1.2-58-g004a507

Service Account noreply at mpich.org
Thu Jul 31 16:28:58 CDT 2014


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/004a5078374078d160e93b9024a46a4b463340b5

commit 004a5078374078d160e93b9024a46a4b463340b5
Author: Junchao Zhang <jczhang at mcs.anl.gov>
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 <apenya at mcs.anl.gov>

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


More information about the commits mailing list