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
model-checker : fix comm determinism detection mechanisms
[simgrid.git]
/
src
/
smpi
/
smpi_f77.c
diff --git
a/src/smpi/smpi_f77.c
b/src/smpi/smpi_f77.c
index
fa9a800
..
95c40d7
100644
(file)
--- a/
src/smpi/smpi_f77.c
+++ b/
src/smpi/smpi_f77.c
@@
-27,9
+27,9
@@
union u_smpi_common {
integer _MPI_BOTTOM;
integer _MPI_STATUS_IGNORE;
integer _MPI_STATUSES_IGNORE;
integer _MPI_BOTTOM;
integer _MPI_STATUS_IGNORE;
integer _MPI_STATUSES_IGNORE;
- }
f90; /* with gft
ortran */
- struct s_smpi_common
*f77; /* with f2c, remains NULL
with gfortran */
-} smpi_;
+ }
*f77; /* with f2c, remains NULL with gf
ortran */
+ struct s_smpi_common
f90; /*
with gfortran */
+} smpi_
= { NULL }
;
/* Convert between Fortran and C */
#define F2C_ADDR(addr, val) \
/* Convert between Fortran and C */
#define F2C_ADDR(addr, val) \