X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/4137195804cd6cf88d6077d42a80cd6b41e09814..81200bdffde340c4830331a8b534537b24fd2850:/teshsuite/smpi/mpich3-test/f90/datatype/allctypesf90.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/allctypesf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/allctypesf90.f90
index 1e1841f33e..a15061855e 100644
--- a/teshsuite/smpi/mpich3-test/f90/datatype/allctypesf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/allctypesf90.f90
@@ -6,7 +6,7 @@
 !
       program main
       use mpi
-      integer atype, ierr
+      integer ierr
 !
       call mtest_init(ierr)
       call mpi_comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN,  &