From: Julian Seward <jseward@acm.org>
Date: Mon, 4 Jun 2007 21:14:36 +0000 (+0000)
Subject: Merge (from branch) r6755 (Handle MPI_DOUBLE_PRECISION).
X-Git-Tag: svn/VALGRIND_3_3_0~258
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=274558de6d75aec320999259dad79a538cbc9eb6;p=thirdparty%2Fvalgrind.git

Merge (from branch) r6755 (Handle MPI_DOUBLE_PRECISION).


git-svn-id: svn://svn.valgrind.org/valgrind/trunk@6756
---

diff --git a/auxprogs/libmpiwrap.c b/auxprogs/libmpiwrap.c
index 27a9a272ff..5c8964b5fa 100644
--- a/auxprogs/libmpiwrap.c
+++ b/auxprogs/libmpiwrap.c
@@ -267,6 +267,9 @@ static void showTy ( FILE* f, MPI_Datatype ty )
 #  endif
 #  if defined(MPI_INTEGER4)
    else if (ty == MPI_INTEGER4)       fprintf(f, "INTEGER4");
+#  endif
+#  if defined(MPI_DOUBLE_PRECISION)
+   else if (ty == MPI_DOUBLE_PRECISION) fprintf(f, "DOUBLE_PRECISION");
 #  endif
    else fprintf(f,"showTy:???");
 }
@@ -450,6 +453,9 @@ static long sizeofOneNamedTy ( MPI_Datatype ty )
 #  if defined(MPI_INTEGER4)
    if (ty == MPI_INTEGER4)       return sizeof(signed int);
 #  endif
+#  if defined(MPI_DOUBLE_PRECISION)
+   if (ty == MPI_DOUBLE_PRECISION) return sizeof(double);
+#  endif
 
    /* new in MPI2: */
 #  if defined(MPI_WCHAR)