From: Julian Seward <jseward@acm.org>
Date: Mon, 4 Jun 2007 21:00:16 +0000 (+0000)
Subject: Handle MPI_DOUBLE_PRECISION.
X-Git-Tag: svn/VALGRIND_3_2_3~8
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9a2f3d8898a5d873cdafe82f2e255d44ab2a8243;p=thirdparty%2Fvalgrind.git

Handle MPI_DOUBLE_PRECISION.


git-svn-id: svn://svn.valgrind.org/valgrind/branches/VALGRIND_3_2_BRANCH@6755
---

diff --git a/auxprogs/libmpiwrap.c b/auxprogs/libmpiwrap.c
index efa8ad6bd9..0c6a6f3a2b 100644
--- a/auxprogs/libmpiwrap.c
+++ b/auxprogs/libmpiwrap.c
@@ -253,6 +253,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:???");
 }
@@ -436,6 +439,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)