From bdabbba43013034e046d30bbc01d5eeaa21a98b0 Mon Sep 17 00:00:00 2001
From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Tue, 8 Apr 2014 10:27:10 +0200
Subject: [PATCH] Remove warnings about unused parameters.

---
 teshsuite/smpi/mpich3-test/f77/coll/redscatf.f     | 13 ++++++++-----
 teshsuite/smpi/mpich3-test/f77/util/mtestf.f       |  3 +++
 teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90 | 10 ++++++----
 teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90   |  3 +++
 4 files changed, 20 insertions(+), 9 deletions(-)

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f b/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f
index b19b1e7903..efd6c06040 100644
--- a/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f
@@ -9,11 +9,14 @@ C
       integer cin(*), cout(*)
       integer count, datatype
       integer i
-      
-!      if (datatype .ne. MPI_INTEGER) then
-!         write(6,*) 'Invalid datatype ',datatype,' passed to user_op()'
-!         return
-!      endif
+
+      if (.false.) then
+         if (datatype .ne. MPI_INTEGER) then
+            write(6,*) 'Invalid datatype ',datatype,
+     &           ' passed to user_op()'
+            return
+         endif
+      endif
 
       do i=1, count
          cout(i) = cin(i) + cout(i)
diff --git a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
index 81edc25f71..2c54d76f5c 100644
--- a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
+++ b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -56,6 +56,9 @@ C A simple get intracomm for now
         save myindex
         data myindex /0/
 
+        if (.false.) then
+           qsmaller = qsmaller
+        endif
         comm = MPI_COMM_NULL
         if (myindex .eq. 0) then
            comm = MPI_COMM_WORLD
diff --git a/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
index 2230ac2fa6..496d178277 100644
--- a/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
@@ -10,10 +10,12 @@
       integer count, datatype
       integer i
       
-!      if (datatype .ne. MPI_INTEGER) then
-!         write(6,*) 'Invalid datatype ',datatype,' passed to user_op()'
-!         return
-!      endif
+      if (.false.) then
+         if (datatype .ne. MPI_INTEGER) then
+            write(6,*) 'Invalid datatype ',datatype,' passed to user_op()'
+            return
+         endif
+      endif
 
       do i=1, count
          cout(i) = cin(i) + cout(i)
diff --git a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90 b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
index 56b76b7e88..bb12b29e24 100644
--- a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
@@ -54,6 +54,9 @@
         save myindex
         data myindex /0/
 
+        if (.false.) then
+           qsmaller = qsmaller
+        endif
         comm = MPI_COMM_NULL
         if (myindex .eq. 0) then
            comm = MPI_COMM_WORLD
-- 
2.20.1