datatype: Add preliminary support for MPI_LOGICAL16

Signed-off-by: Lisandro Dalcin <dalcinl@gmail.com>

Author: dalcinl

config/ompi_setup_mpi_fortran.m4

@@ -150,14 +150,16 @@ AC_DEFUN([OMPI_SETUP_MPI_FORTRAN],[
 
  OMPI_FORTRAN_CHECK([LOGICAL], [yes],
  [char, int32_t, int, int64_t, long long, long], [-1], [yes])
- OMPI_FORTRAN_CHECK([LOGICAL*1], [yes],
+ OMPI_FORTRAN_CHECK([LOGICAL*1], [no],
  [char, int8_t, short, int32_t, int, int64_t, long long, long], [1], [yes])
- OMPI_FORTRAN_CHECK([LOGICAL*2], [yes],
+ OMPI_FORTRAN_CHECK([LOGICAL*2], [no],
  [short, int16_t, int32_t, int, int64_t, long long, long], [2], [yes])
- OMPI_FORTRAN_CHECK([LOGICAL*4], [yes],
+ OMPI_FORTRAN_CHECK([LOGICAL*4], [no],
  [int32_t, int, int64_t, long long, long], [4], [yes])
- OMPI_FORTRAN_CHECK([LOGICAL*8], [yes],
+ OMPI_FORTRAN_CHECK([LOGICAL*8], [no],
  [int, int64_t, long long, long], [8], [yes])
+ OMPI_FORTRAN_CHECK([LOGICAL*16], [no],
+ [int, int64_t, long long, long], [16], [yes])
 
  OMPI_FORTRAN_CHECK([INTEGER], [yes],
  [int32_t, int, int64_t, long long, long], [-1], [yes])

ompi/datatype/ompi_datatype_internal.h

@@ -247,6 +247,20 @@
 # define OMPI_DATATYPE_MPI_LOGICAL8 OMPI_DATATYPE_MPI_UNAVAILABLE
 #endif
 
+#if OMPI_SIZEOF_FORTRAN_LOGICAL16 == OMPI_SIZEOF_FORTRAN_LOGICAL
+# define OMPI_DATATYPE_MPI_LOGICAL16 OMPI_DATATYPE_MPI_LOGICAL
+#elif OMPI_SIZEOF_FORTRAN_LOGICAL16 == 1
+# define OMPI_DATATYPE_MPI_LOGICAL16 OMPI_DATATYPE_MPI_INT8_T
+#elif OMPI_SIZEOF_FORTRAN_LOGICAL16 == 2
+# define OMPI_DATATYPE_MPI_LOGICAL16 OMPI_DATATYPE_MPI_INT16_T
+#elif OMPI_SIZEOF_FORTRAN_LOGICAL16 == 4
+# define OMPI_DATATYPE_MPI_LOGICAL16 OMPI_DATATYPE_MPI_INT32_T
+#elif OMPI_SIZEOF_FORTRAN_LOGICAL16 == 8
+# define OMPI_DATATYPE_MPI_LOGICAL16 OMPI_DATATYPE_MPI_INT64_T
+#else
+# define OMPI_DATATYPE_MPI_LOGICAL16 OMPI_DATATYPE_MPI_UNAVAILABLE
+#endif
+
 /* INTEGER */
 #if OMPI_SIZEOF_FORTRAN_INTEGER1 == OMPI_SIZEOF_FORTRAN_INTEGER
 # define OMPI_DATATYPE_MPI_INTEGER1 OMPI_DATATYPE_MPI_INTEGER

ompi/datatype/ompi_datatype_module.c

@@ -223,6 +223,11 @@ ompi_predefined_datatype_t ompi_mpi_logical8 = OMPI_DATATYPE_INIT_PREDEFIN
 #else
 ompi_predefined_datatype_t ompi_mpi_logical8 = OMPI_DATATYPE_INIT_UNAVAILABLE (LOGICAL8, OMPI_DATATYPE_FLAG_DATA_FORTRAN );
 #endif
+#if OMPI_HAVE_FORTRAN_LOGICAL16
+ompi_predefined_datatype_t ompi_mpi_logical16 = OMPI_DATATYPE_INIT_PREDEFINED_BASIC_TYPE_FORTRAN (INT, LOGICAL16, OMPI_SIZEOF_FORTRAN_LOGICAL16, OMPI_ALIGNMENT_FORTRAN_LOGICAL16, 0);
+#else
+ompi_predefined_datatype_t ompi_mpi_logical16 = OMPI_DATATYPE_INIT_UNAVAILABLE (LOGICAL16, OMPI_DATATYPE_FLAG_DATA_FORTRAN );
+#endif
 #if OMPI_HAVE_FORTRAN_REAL2
 ompi_predefined_datatype_t ompi_mpi_real2 = OMPI_DATATYPE_INIT_PREDEFINED_BASIC_TYPE_FORTRAN (FLOAT, REAL2, OMPI_SIZEOF_FORTRAN_REAL2, OMPI_ALIGNMENT_FORTRAN_REAL2, OMPI_DATATYPE_FLAG_DATA_FLOAT);
 #else

ompi/include/mpi.h.in

@@ -120,6 +120,9 @@
 /* Whether we have FORTRAN LOGICAL*1 or not */
 #undef OMPI_HAVE_FORTRAN_LOGICAL1
 
+/* Whether we have FORTRAN LOGICAL*16 or not */
+#undef OMPI_HAVE_FORTRAN_LOGICAL16
+
 /* Whether we have FORTRAN LOGICAL*2 or not */
 #undef OMPI_HAVE_FORTRAN_LOGICAL2
 
@@ -1140,6 +1143,7 @@ OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_logical1;
 OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_logical2;
 OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_logical4;
 OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_logical8;
+OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_logical16;
 OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_integer1;
 OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_integer2;
 OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_integer4;
@@ -1287,6 +1291,9 @@ OMPI_DECLSPEC extern struct ompi_predefined_datatype_t ompi_mpi_ub;
 #if OMPI_HAVE_FORTRAN_LOGICAL8
 #define MPI_LOGICAL8 OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_logical8)
 #endif
+#if OMPI_HAVE_FORTRAN_LOGICAL16
+#define MPI_LOGICAL16 OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_logical16)
+#endif
 #define MPI_INTEGER OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_integer)
 #if OMPI_HAVE_FORTRAN_INTEGER1
 #define MPI_INTEGER1 OMPI_PREDEFINED_GLOBAL(MPI_Datatype, ompi_mpi_integer1)

ompi/include/mpif-values.pl

@@ -226,6 +226,7 @@ sub read_value_from_file {
 $handles->{MPI_C_LONG_DOUBLE_COMPLEX} = 71;
 $handles->{MPI_COUNT} = 72;
 $handles->{MPI_COMPLEX4} = 73;
+$handles->{MPI_LOGICAL16} = 74;
 
 $handles->{MPI_MESSAGE_NO_PROC} = 1;
 

ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-types.F90

@@ -154,6 +154,7 @@ module mpi_f08_types
  type(MPI_Datatype), parameter :: MPI_LOGICAL2 = MPI_Datatype(OMPI_MPI_LOGICAL2)
  type(MPI_Datatype), parameter :: MPI_LOGICAL4 = MPI_Datatype(OMPI_MPI_LOGICAL4)
  type(MPI_Datatype), parameter :: MPI_LOGICAL8 = MPI_Datatype(OMPI_MPI_LOGICAL8)
+ type(MPI_Datatype), parameter :: MPI_LOGICAL16 = MPI_Datatype(OMPI_MPI_LOGICAL16)
  type(MPI_Datatype), parameter :: MPI_C_BOOL = MPI_Datatype(OMPI_MPI_C_BOOL)
  type(MPI_Datatype), parameter :: MPI_CXX_BOOL = MPI_Datatype(OMPI_MPI_CXX_BOOL)
  type(MPI_Datatype), parameter :: MPI_COUNT = MPI_Datatype(OMPI_MPI_COUNT)