[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2b3-126-gdf133f8

Service Account noreply at mpich.org
Tue Jun 23 15:47:27 CDT 2015

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  df133f8eaf82f448e8d5fb53d0a8ec77d8484c85 (commit)
      from  a4aa067596105b9b21d80c672eb00820e4c84cb5 (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 -----------------------------------------------------------------

commit df133f8eaf82f448e8d5fb53d0a8ec77d8484c85
Author: Junchao Zhang <jczhang at mcs.anl.gov>
Date:   Mon Jun 15 14:50:27 2015 -0500

    Fix typos in an F08 test
    No reviewer

diff --git a/test/mpi/f08/attr/attrmpi1f08.f90 b/test/mpi/f08/attr/attrmpi1f08.f90
index 242ee1b..fe5e2e9 100644
--- a/test/mpi/f08/attr/attrmpi1f08.f90
+++ b/test/mpi/f08/attr/attrmpi1f08.f90
@@ -5,7 +5,8 @@
 !      See COPYRIGHT in top-level directory.
       program main
-      use mpi
+      use mpi_f08
+      implicit none
       integer value, wsize, wrank, extra, mykey
       integer rvalue, svalue
       TYPE(MPI_Comm) ncomm
@@ -19,7 +20,7 @@
 !     Simple attribute put and get
-      call mpi_keyval_create( MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, &
+      call mpi_keyval_create( MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN, &
       &     mykey, extra,ierr )
       call mpi_attr_get( MPI_COMM_WORLD, mykey, value, flag, ierr )
       if (flag) then


Summary of changes:
 test/mpi/f08/attr/attrmpi1f08.f90 |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

MPICH primary repository

More information about the commits mailing list