From 2b5a7ca816ec1378b58a9d923566fdb5dd810dbf Mon Sep 17 00:00:00 2001
From: Gilles Gouaillardet <gilles@rist.or.jp>
Date: Mon, 1 Oct 2018 13:23:54 +0900
Subject: [PATCH] fortran: add CHARACTER and LOGICAL support to MPI_Sizeof()
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
(cherry picked from commit open-mpi/ompi@e4001040b4bb236891865df38bafebacfb29f08b)
---
ompi/mpi/fortran/base/gen-mpi-sizeof.pl | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/ompi/mpi/fortran/base/gen-mpi-sizeof.pl b/ompi/mpi/fortran/base/gen-mpi-sizeof.pl
index 5ea3dca3a4..baa9cf1da5 100755
--- a/ompi/mpi/fortran/base/gen-mpi-sizeof.pl
+++ b/ompi/mpi/fortran/base/gen-mpi-sizeof.pl
@@ -1,8 +1,8 @@
#!/usr/bin/env perl
#
# Copyright (c) 2014-2015 Cisco Systems, Inc. All rights reserved.
-# Copyright (c) 2015 Research Organization for Information Science
-# and Technology (RIST). All rights reserved.
+# Copyright (c) 2015-2018 Research Organization for Information Science
+# and Technology (RIST). All rights reserved.
# $COPYRIGHT$
#
# Script to generate the overloaded MPI_SIZEOF interfaces and
@@ -156,6 +156,8 @@ for my $size (qw/32 64 128/) {
queue_sub("complex(real${size})", "complex${size}", "real${size}");
}
}
+queue_sub("character", "character");
+queue_sub("logical", "logical");
#######################################################