non blocking collectives, now for fortran edition.

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / coll / nonblockingf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/nonblockingf.f b/teshsuite/smpi/mpich3-test/f77/coll/nonblockingf.f
index b912acd..c491c8b 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/coll/nonblockingf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/nonblockingf.f
@@ -19,7 +19,7 @@ C
       integer ii, ans
 
       errs = 0
-
+      rbuf=0
       call mtest_init(ierr)
 
       comm = MPI_COMM_WORLD