A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Other fix for #78 : Fortran logical and MPI_LOGICAL are actually 32 bits wide, not...
[simgrid.git]
/
src
/
smpi
/
bindings
/
smpi_f77.cpp
diff --git
a/src/smpi/bindings/smpi_f77.cpp
b/src/smpi/bindings/smpi_f77.cpp
index
85885bb
..
0316d22
100644
(file)
--- a/
src/smpi/bindings/smpi_f77.cpp
+++ b/
src/smpi/bindings/smpi_f77.cpp
@@
-23,11
+23,10
@@
void smpi_init_fortran_types()
MPI_COMM_WORLD->add_f();
MPI_BYTE->add_f(); // MPI_BYTE
MPI_CHAR->add_f(); // MPI_CHARACTER
MPI_COMM_WORLD->add_f();
MPI_BYTE->add_f(); // MPI_BYTE
MPI_CHAR->add_f(); // MPI_CHARACTER
+ MPI_C_BOOL->add_f(); // MPI_LOGICAL
if (sizeof(void*) == 8) {
if (sizeof(void*) == 8) {
- MPI_C_BOOL->add_f(); // MPI_LOGICAL
MPI_INT->add_f(); // MPI_INTEGER
} else {
MPI_INT->add_f(); // MPI_INTEGER
} else {
- MPI_C_BOOL->add_f(); // MPI_LOGICAL
MPI_LONG->add_f(); // MPI_INTEGER
}
MPI_INT8_T->add_f(); // MPI_INTEGER1
MPI_LONG->add_f(); // MPI_INTEGER
}
MPI_INT8_T->add_f(); // MPI_INTEGER1