Commit 23c3ed3a authored by Junchao Zhang's avatar Junchao Zhang
Browse files

Fix a typo for MPI_TYPE_NULL



It should be MPI_DATATYPE_NULL. MPI does not have MPI_TYPE_NULL.
Signed-off-by: default avatarHuiwei Lu <huiweilu@mcs.anl.gov>
parent 1beada6b
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
#endif #endif
/* helper macros to improve code readability */ /* helper macros to improve code readability */
/* we pessimistically assume that MPI_TYPE_NULL may be passed as a "valid" type /* we pessimistically assume that MPI_DATATYPE_NULL may be passed as a "valid" type
* for send/recv when MPI_PROC_NULL is the destination/src */ * for send/recv when MPI_PROC_NULL is the destination/src */
#define dtype_add_ref_if_not_builtin(datatype_) \ #define dtype_add_ref_if_not_builtin(datatype_) \
do { \ do { \
......
...@@ -31,11 +31,11 @@ ...@@ -31,11 +31,11 @@
errs = errs + f2ctype( MPI_LONG_INT, 14 ) errs = errs + f2ctype( MPI_LONG_INT, 14 )
errs = errs + f2ctype( MPI_SHORT_INT, 15 ) errs = errs + f2ctype( MPI_SHORT_INT, 15 )
errs = errs + f2ctype( MPI_2INT, 16 ) errs = errs + f2ctype( MPI_2INT, 16 )
if (MPI_LONG_DOUBLE .ne. MPI_TYPE_NULL) then if (MPI_LONG_DOUBLE .ne. MPI_DATATYPE_NULL) then
errs = errs + f2ctype( MPI_LONG_DOUBLE, 17 ) errs = errs + f2ctype( MPI_LONG_DOUBLE, 17 )
errs = errs + f2ctype( MPI_LONG_DOUBLE_INT, 21 ) errs = errs + f2ctype( MPI_LONG_DOUBLE_INT, 21 )
endif endif
if (MPI_LONG_LONG .ne. MPI_TYPE_NULL) then if (MPI_LONG_LONG .ne. MPI_DATATYPE_NULL) then
errs = errs + f2ctype( MPI_LONG_LONG_INT, 18 ) errs = errs + f2ctype( MPI_LONG_LONG_INT, 18 )
errs = errs + f2ctype( MPI_LONG_LONG, 19 ) errs = errs + f2ctype( MPI_LONG_LONG, 19 )
errs = errs + f2ctype( MPI_UNSIGNED_LONG_LONG, 20 ) errs = errs + f2ctype( MPI_UNSIGNED_LONG_LONG, 20 )
......
...@@ -31,11 +31,11 @@ C ...@@ -31,11 +31,11 @@ C
errs = errs + f2ctype( MPI_LONG_INT, 14 ) errs = errs + f2ctype( MPI_LONG_INT, 14 )
errs = errs + f2ctype( MPI_SHORT_INT, 15 ) errs = errs + f2ctype( MPI_SHORT_INT, 15 )
errs = errs + f2ctype( MPI_2INT, 16 ) errs = errs + f2ctype( MPI_2INT, 16 )
if (MPI_LONG_DOUBLE .ne. MPI_TYPE_NULL) then if (MPI_LONG_DOUBLE .ne. MPI_DATATYPE_NULL) then
errs = errs + f2ctype( MPI_LONG_DOUBLE, 17 ) errs = errs + f2ctype( MPI_LONG_DOUBLE, 17 )
errs = errs + f2ctype( MPI_LONG_DOUBLE_INT, 21 ) errs = errs + f2ctype( MPI_LONG_DOUBLE_INT, 21 )
endif endif
if (MPI_LONG_LONG .ne. MPI_TYPE_NULL) then if (MPI_LONG_LONG .ne. MPI_DATATYPE_NULL) then
errs = errs + f2ctype( MPI_LONG_LONG_INT, 18 ) errs = errs + f2ctype( MPI_LONG_LONG_INT, 18 )
errs = errs + f2ctype( MPI_LONG_LONG, 19 ) errs = errs + f2ctype( MPI_LONG_LONG, 19 )
errs = errs + f2ctype( MPI_UNSIGNED_LONG_LONG, 20 ) errs = errs + f2ctype( MPI_UNSIGNED_LONG_LONG, 20 )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment