[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.1.3-117-g73859c0

Service Account noreply at mpich.org
Tue Nov 4 15:27:44 CST 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  73859c0ebd49da4d4522fa239afe2d3bfa235f8e (commit)
      from  5c1bd3d411c7e40c9d8f9f868f00fd48a525c198 (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 73859c0ebd49da4d4522fa239afe2d3bfa235f8e
Author: Junchao Zhang <jczhang at mcs.anl.gov>
Date:   Tue Nov 4 14:34:45 2014 -0600

    Uncomment some code in F08 since the cce bug is fixed
    It was commented out due to a cce/8.3.0 bug. Since the bug is fixed in cce/8.3.2,
    we can safely uncomment the code.
    No reviewer

diff --git a/src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.F90 b/src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.F90
index a687844..fda3212 100644
--- a/src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.F90
+++ b/src/binding/fortran/use_mpi_f08/wrappers_f/register_datarep_f08ts.F90
@@ -35,13 +35,13 @@ subroutine MPI_Register_datarep_f08(datarep, read_conversion_fn, write_conversio
     write_conversion_fn_c = c_funloc(write_conversion_fn)
     dtype_file_extent_fn_c = c_funloc(dtype_file_extent_fn)
-   !if (c_associated(read_conversion_fn_c, c_funloc(MPI_CONVERSION_FN_NULL))) then
-   !    read_conversion_fn_c = C_NULL_FUNPTR
-   !end if
+    if (c_associated(read_conversion_fn_c, c_funloc(MPI_CONVERSION_FN_NULL))) then
+        read_conversion_fn_c = C_NULL_FUNPTR
+    end if
-   !if (c_associated(write_conversion_fn_c, c_funloc(MPI_CONVERSION_FN_NULL))) then
-   !    read_conversion_fn_c = C_NULL_FUNPTR
-   !end if
+    if (c_associated(write_conversion_fn_c, c_funloc(MPI_CONVERSION_FN_NULL))) then
+        write_conversion_fn_c = C_NULL_FUNPTR
+    end if
     ierror_c = MPIR_Register_datarep_c(datarep_c, read_conversion_fn_c, write_conversion_fn_c, &
                                        dtype_file_extent_fn_c, extra_state)


Summary of changes:
 .../wrappers_f/register_datarep_f08ts.F90          |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

MPICH primary repository

More information about the commits mailing list