remove warnings

diff --git a/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f b/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
index 750c568..ddc5164 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
+++ b/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f
@@ -899,11 +899,9 @@ c------------------------------------------------------------------------------
       real    recv_buf(n)
       integer source, tag, count, rank, status(MPI_STATUS_SIZE)
       character*(*) name
       real    recv_buf(n)
       integer source, tag, count, rank, status(MPI_STATUS_SIZE)
       character*(*) name

-      logical foundError

 
       integer ierr, recv_src, recv_tag, recv_count
 
 
       integer ierr, recv_src, recv_tag, recv_count
 

-      foundError = .false.

       recv_src = status(MPI_SOURCE)
       recv_tag = status(MPI_TAG)
       call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )
       recv_src = status(MPI_SOURCE)
       recv_tag = status(MPI_TAG)
       call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )


@@ -913,20 +911,17 @@ c------------------------------------------------------------------------------
          print *, '[', rank, '] Unexpected source:', recv_src, 
      *            ' in ', name
          errs       = errs + 1
          print *, '[', rank, '] Unexpected source:', recv_src, 
      *            ' in ', name
          errs       = errs + 1

-         foundError = .true.

       end if
 
       if (recv_tag .ne. tag) then
          print *, '[', rank, '] Unexpected tag:', recv_tag, ' in ', name
          errs       = errs + 1
       end if
 
       if (recv_tag .ne. tag) then
          print *, '[', rank, '] Unexpected tag:', recv_tag, ' in ', name
          errs       = errs + 1

-         foundError = .true.

       end if
 
       if (recv_count .ne. count) then
          print *, '[', rank, '] Unexpected count:', recv_count,
      *            ' in ', name
          errs       = errs + 1
       end if
 
       if (recv_count .ne. count) then
          print *, '[', rank, '] Unexpected count:', recv_count,
      *            ' in ', name
          errs       = errs + 1

-         foundError = .true.

       end if
          
       call verify_test_data(recv_buf, count, n, name, errs )
       end if
          
       call verify_test_data(recv_buf, count, n, name, errs )

diff --git a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
index ba7092e..9bef6e1 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
+++ b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -72,6 +72,7 @@ C A simple get intracomm for now
         endif
         myindex = mod( myindex, 4 ) + 1
         MTestGetIntracomm = comm .ne. MPI_COMM_NULL
         endif
         myindex = mod( myindex, 4 ) + 1
         MTestGetIntracomm = comm .ne. MPI_COMM_NULL

+        qsmaller=.true.

         end
 C
         subroutine MTestFreeComm( comm )
         end
 C
         subroutine MTestFreeComm( comm )

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90
index 867fadf..9dbea6c 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90
@@ -7,8 +7,8 @@
       program main
       use mpi
       integer ierr, errs
       program main
       use mpi
       integer ierr, errs

-      integer i, ans, size, rank, color, comm, newcomm
-      integer maxSize, displ
+      integer i, size, rank, comm, newcomm
+      integer maxSize

       parameter (maxSize=128)
       integer scounts(maxSize), sdispls(maxSize), stypes(maxSize)
       integer rcounts(maxSize), rdispls(maxSize), rtypes(maxSize)
       parameter (maxSize=128)
       integer scounts(maxSize), sdispls(maxSize), stypes(maxSize)
       integer rcounts(maxSize), rdispls(maxSize), rtypes(maxSize)

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90
index 023eec0..bc42b54 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90
@@ -13,10 +13,10 @@
       integer count, datatype
       integer i
       
       integer count, datatype
       integer i
       

-!      if (datatype .ne. MPI_INTEGER) then
-!         print *, 'Invalid datatype (',datatype,') passed to user_op()'
-!         return
-!      endif
+      if (datatype .eq. MPI_INTEGER) then
+         print *, 'Invalid datatype (',datatype,') passed to user_op()'
+         return
+      endif

 
       do i=1, count
          cout(i) = cin(i) + cout(i)
 
       do i=1, count
          cout(i) = cin(i) + cout(i)

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90
index 1ed0bf7..192cb02 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90
@@ -14,7 +14,7 @@
        integer rbuf(MAX_SIZE)
        integer rdispls(MAX_SIZE), rcounts(MAX_SIZE), rtypes(MAX_SIZE)
        integer ierr, errs
        integer rbuf(MAX_SIZE)
        integer rdispls(MAX_SIZE), rcounts(MAX_SIZE), rtypes(MAX_SIZE)
        integer ierr, errs

-       integer comm, root
+       integer comm

        integer rank, size
        integer iexpected, igot
        integer i, j
        integer rank, size
        integer iexpected, igot
        integer i, j

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/allctypesf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/allctypesf90.f90
index 1e1841f..a150618 100644 (file)
--- 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
 !
       program main
       use mpi

-      integer atype, ierr
+      integer ierr

 !
       call mtest_init(ierr)
       call mpi_comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN,  &
 !
       call mtest_init(ierr)
       call mpi_comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN,  &

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90
index b146f4f..bf23687 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90
@@ -9,9 +9,9 @@
       use mpi
       integer max_asizev
       parameter (max_asizev=2)
       use mpi
       integer max_asizev
       parameter (max_asizev=2)

-      integer (kind=MPI_ADDRESS_KIND) aint, aintv(max_asizev)
+      integer (kind=MPI_ADDRESS_KIND) aintv(max_asizev), gap

 
 

-      integer iarray(200), gap, intsize
+      integer iarray(200), intsize

       integer ierr, errs
 
       errs = 0
       integer ierr, errs
 
       errs = 0

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/hindexed_blockf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/hindexed_blockf90.f90
index 32a59e7..f2977fa 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/datatype/hindexed_blockf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/hindexed_blockf90.f90
@@ -13,7 +13,6 @@
       integer (kind=MPI_ADDRESS_KIND) aint, aintv(max_asizev)
 
       integer blocklens(max_asizev), dtypes(max_asizev)
       integer (kind=MPI_ADDRESS_KIND) aint, aintv(max_asizev)
 
       integer blocklens(max_asizev), dtypes(max_asizev)

-      integer displs(max_asizev)

       integer recvbuf(6*max_asizev)
       integer sendbuf(max_asizev), status(MPI_STATUS_SIZE)
       integer rank, size
       integer recvbuf(6*max_asizev)
       integer sendbuf(max_asizev), status(MPI_STATUS_SIZE)
       integer rank, size

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/typecntsf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/typecntsf90.f90
index cfe3993..8eb870a 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/datatype/typecntsf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/typecntsf90.f90
@@ -40,7 +40,7 @@
        integer max_nints, max_dtypes, max_asizev
        parameter (max_nints = 10, max_dtypes = 10, max_asizev=10)
        integer intv(max_nints), dtypesv(max_dtypes)
        integer max_nints, max_dtypes, max_asizev
        parameter (max_nints = 10, max_dtypes = 10, max_asizev=10)
        integer intv(max_nints), dtypesv(max_dtypes)

-       integer (kind=MPI_ADDRESS_KIND) aint, aintv(max_asizev)
+       integer (kind=MPI_ADDRESS_KIND) aintv(max_asizev)

 
 !
        call mpi_type_get_envelope( dtype, nints, nadds, ntype, &
 
 !
        call mpi_type_get_envelope( dtype, nints, nadds, ntype, &

diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
index a7726e9..70f5c51 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90
@@ -342,7 +342,7 @@
       subroutine test_pair_irsend( comm, errs )
       use mpi
       integer comm, errs
       subroutine test_pair_irsend( comm, errs )
       use mpi
       integer comm, errs

-      integer rank, size, ierr, next, prev, tag, count, index, i
+      integer rank, size, ierr, next, prev, tag, count, index

       integer TEST_SIZE
       integer dupcom
       parameter (TEST_SIZE=2000)
       integer TEST_SIZE
       integer dupcom
       parameter (TEST_SIZE=2000)


@@ -824,7 +824,7 @@
       integer TEST_SIZE
       parameter (TEST_SIZE=2000)
       integer status(MPI_STATUS_SIZE)
       integer TEST_SIZE
       parameter (TEST_SIZE=2000)
       integer status(MPI_STATUS_SIZE)

-      real send_buf(TEST_SIZE), recv_buf(TEST_SIZE)
+      real recv_buf(TEST_SIZE)

       logical verbose
       common /flags/ verbose
 !
       logical verbose
       common /flags/ verbose
 !


@@ -979,7 +979,7 @@
       integer n, errs
       real buf(n)
       character *(*) name
       integer n, errs
       real buf(n)
       character *(*) name

-      integer count, ierr, i
+      integer count, i

 !
       do 10 i = 1, count
          if (buf(i) .ne. REAL(i)) then
 !
       do 10 i = 1, count
          if (buf(i) .ne. REAL(i)) then

diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/dummyf90.f90
index 957ed25..4db2b95 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
 ! 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
       end

diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/greqf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/greqf90.f90
index 8844ce7..e82027e 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/pt2pt/greqf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/pt2pt/greqf90.f90
@@ -7,7 +7,7 @@
       subroutine query_fn( extrastate, status, ierr )
       use mpi
       integer status(MPI_STATUS_SIZE), ierr
       subroutine query_fn( extrastate, status, ierr )
       use mpi
       integer status(MPI_STATUS_SIZE), ierr

-      integer (kind=MPI_ADDRESS_KIND) extrastate, valin, valout, val
+      integer (kind=MPI_ADDRESS_KIND) extrastate

 
 !
 !    set a default status
 
 !
 !    set a default status


@@ -16,12 +16,13 @@
       call mpi_status_set_cancelled( status, .false., ierr)
       call mpi_status_set_elements( status, MPI_BYTE, 0, ierr )
       ierr = MPI_SUCCESS
       call mpi_status_set_cancelled( status, .false., ierr)
       call mpi_status_set_elements( status, MPI_BYTE, 0, ierr )
       ierr = MPI_SUCCESS

+      extrastate = extrastate

       end
 !
       subroutine free_fn( extrastate, ierr )
       use mpi
       end
 !
       subroutine free_fn( extrastate, ierr )
       use mpi

-      integer value, ierr
-      integer (kind=MPI_ADDRESS_KIND) extrastate, valin, valout, val
+      integer ierr
+      integer (kind=MPI_ADDRESS_KIND) extrastate

 
       integer freefncall
       common /fnccalls/ freefncall
 
       integer freefncall
       common /fnccalls/ freefncall


@@ -40,10 +41,12 @@
       use mpi
       integer ierr
       logical complete
       use mpi
       integer ierr
       logical complete

-      integer (kind=MPI_ADDRESS_KIND) extrastate, valin, valout, val
+      integer (kind=MPI_ADDRESS_KIND) extrastate

 
 
       ierr = MPI_SUCCESS
 
 
       ierr = MPI_SUCCESS

+      complete=.true.
+      extrastate=extrastate

       end
 !
 !
       end
 !
 !


@@ -64,7 +67,7 @@
        integer status(MPI_STATUS_SIZE)
        integer request
        external query_fn, free_fn, cancel_fn
        integer status(MPI_STATUS_SIZE)
        integer request
        external query_fn, free_fn, cancel_fn

-       integer (kind=MPI_ADDRESS_KIND) extrastate, valin, valout, val
+       integer (kind=MPI_ADDRESS_KIND) extrastate

 
        integer freefncall
        common /fnccalls/ freefncall
 
        integer freefncall
        common /fnccalls/ freefncall

diff --git a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90 b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
index ea6f413..8e44792 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
@@ -87,6 +87,7 @@ end module
         endif
         myindex(rank+1) = mod( myindex(rank+1), 4 ) + 1
         MTestGetIntracomm = comm .ne. MPI_COMM_NULL
         endif
         myindex(rank+1) = mod( myindex(rank+1), 4 ) + 1
         MTestGetIntracomm = comm .ne. MPI_COMM_NULL

+        qsmaller=.true.

         end
 !
         subroutine MTestFreeComm( comm )
         end
 !
         subroutine MTestFreeComm( comm )