From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Tue, 21 Jan 2014 21:16:07 +0000 (+0100)
Subject: Fix warnings about unused variables.
X-Git-Tag: v3_11_beta~133
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/5b843c9d1bbe7cf724ca02126adc13da0a980402

Fix warnings about unused variables.
---

diff --git a/teshsuite/smpi/mpich3-test/coll/allgatherv4.c b/teshsuite/smpi/mpich3-test/coll/allgatherv4.c
index 0cb30d0738..60bf0a4ebe 100644
--- a/teshsuite/smpi/mpich3-test/coll/allgatherv4.c
+++ b/teshsuite/smpi/mpich3-test/coll/allgatherv4.c
@@ -127,7 +127,8 @@ fn_exit:
 void comm_tests(MPI_Comm comm)
 {
     int comm_size, comm_rank;
-    double rtime, max_time;
+    double rtime = rtime;       /* stop warning about unused variable */
+    double max_time;
     long long msg_size;
 
     MPI_Comm_size(comm, &comm_size);
diff --git a/teshsuite/smpi/mpich3-test/datatype/contents.c b/teshsuite/smpi/mpich3-test/datatype/contents.c
index fb513c30a8..2e96a9e28b 100644
--- a/teshsuite/smpi/mpich3-test/datatype/contents.c
+++ b/teshsuite/smpi/mpich3-test/datatype/contents.c
@@ -93,9 +93,9 @@ int builtin_float_test(void)
 {
     int nints, nadds, ntypes, combiner;
 
-    int err, errs = 0;
+    int /* err, */ errs = 0;
 
-    err = MPI_Type_get_envelope(MPI_FLOAT,
+    /* err = */ MPI_Type_get_envelope(MPI_FLOAT,
 				&nints,
 				&nadds,
 				&ntypes,
@@ -324,17 +324,17 @@ int optimizable_vector_of_basics_test(void)
     MPI_Aint *adds = NULL;
     MPI_Datatype *types;
 
-    int err, errs = 0;
+    int /* err, */ errs = 0;
 
     /* set up type */
-    err = MPI_Type_vector(10,
+    /* err = */ MPI_Type_vector(10,
 			  2,
 			  2,
 			  MPI_INT,
 			  &parent_type);
 
     /* decode */
-    err = MPI_Type_get_envelope(parent_type,
+    /* err = */ MPI_Type_get_envelope(parent_type,
 				&nints,
 				&nadds,
 				&ntypes,
@@ -358,7 +358,7 @@ int optimizable_vector_of_basics_test(void)
     if (nadds) adds = malloc(nadds * sizeof(*adds));
     types = malloc(ntypes *sizeof(*types));
 
-    err = MPI_Type_get_contents(parent_type,
+    /* err = */ MPI_Type_get_contents(parent_type,
 				nints,
 				nadds,
 				ntypes,
@@ -407,17 +407,17 @@ int indexed_of_basics_test(void)
     MPI_Aint *adds = NULL;
     MPI_Datatype *types;
 
-    int err, errs = 0;
+    int /* err, */ errs = 0;
 
     /* set up type */
-    err = MPI_Type_indexed(s_count,
+    /* err = */ MPI_Type_indexed(s_count,
 			   s_blocklengths,
 			   s_displacements,
 			   MPI_INT,
 			   &parent_type);
 
     /* decode */
-    err = MPI_Type_get_envelope(parent_type,
+    /* err = */ MPI_Type_get_envelope(parent_type,
 				&nints,
 				&nadds,
 				&ntypes,
@@ -441,7 +441,7 @@ int indexed_of_basics_test(void)
     if (nadds) adds = malloc(nadds * sizeof(*adds));
     types = malloc(ntypes *sizeof(*types));
 
-    err = MPI_Type_get_contents(parent_type,
+    /* err = */ MPI_Type_get_contents(parent_type,
 				nints,
 				nadds,
 				ntypes,
diff --git a/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
index 66339f216a..2230ac2fa6 100644
--- a/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
@@ -30,7 +30,7 @@
 
       program main
       use mpi
-      integer errs, ierr, toterr
+      integer errs, ierr
       integer maxsize
       parameter (maxsize=1024)
       integer recvbuf