Merge branch 'adrien' into 'master'

[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 957ed25d5fc5a6741427d7a27750a6e667c27fd7..4db2b957821bd6d5fa3bf531200d93972506d017 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