X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/4137195804cd6cf88d6077d42a80cd6b41e09814..89d98a56977c70b61c8dba09f5c5136e73784339:/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 957ed25d5f..4db2b95782 100644
--- 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