Merge branch 'master' of git+ssh://scm.gforge.inria.fr//gitroot/simgrid/simgrid

[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / pt2pt / dummyf90.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90
index 957ed25..4db2b95 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90
@@ -15,6 +15,6 @@
 ! F90 tests from the F77 tests looks for mpif.h
       subroutine dummyupdate( extrastate )
       use mpi
-      integer (kind=MPI_ADDRESS_KIND) extrastate, valin, valout, val
-
+      integer (kind=MPI_ADDRESS_KIND) extrastate
+      extrastate=extrastate
       end