From: Augustin Degomme Date: Mon, 23 Sep 2013 12:55:44 +0000 (+0200) Subject: remove warnings X-Git-Tag: v3_9_90~104^2~12 X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/81200bdffde340c4830331a8b534537b24fd2850 remove warnings --- diff --git a/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f b/teshsuite/smpi/mpich3-test/f77/pt2pt/allpairf.f index 750c56816c..ddc516415d 100644 --- 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 - logical foundError 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 ) @@ -913,20 +911,17 @@ c------------------------------------------------------------------------------ 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 - foundError = .true. 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 ) diff --git a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f index ba7092ef17..9bef6e158d 100644 --- 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 + qsmaller=.true. 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 867fadfbd1..9dbea6cde2 100644 --- 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 - 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) diff --git a/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 index 023eec013b..bc42b54c6f 100644 --- 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 -! 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) diff --git a/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90 index 1ed0bf75f5..192cb02b6b 100644 --- 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 comm, root + integer comm 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 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, & diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90 index b146f4f4b9..bf23687563 100644 --- 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) - 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 diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/hindexed_blockf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/hindexed_blockf90.f90 index 32a59e7ac4..f2977fab95 100644 --- 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 displs(max_asizev) 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 cfe399371c..8eb870a891 100644 --- 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 (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, & diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/allpairf90.f90 index a7726e9c37..70f5c51081 100644 --- 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 - 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) @@ -824,7 +824,7 @@ 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 ! @@ -979,7 +979,7 @@ 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 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 diff --git a/teshsuite/smpi/mpich3-test/f90/pt2pt/greqf90.f90 b/teshsuite/smpi/mpich3-test/f90/pt2pt/greqf90.f90 index 8844ce7294..e82027eab8 100644 --- 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 - integer (kind=MPI_ADDRESS_KIND) extrastate, valin, valout, val + integer (kind=MPI_ADDRESS_KIND) extrastate ! ! 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 + extrastate = extrastate 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 @@ -40,10 +41,12 @@ use mpi integer ierr logical complete - integer (kind=MPI_ADDRESS_KIND) extrastate, valin, valout, val + integer (kind=MPI_ADDRESS_KIND) extrastate ierr = MPI_SUCCESS + complete=.true. + extrastate=extrastate end ! ! @@ -64,7 +67,7 @@ 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 diff --git a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90 b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90 index ea6f4138d3..8e447927a3 100644 --- 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 + qsmaller=.true. end ! subroutine MTestFreeComm( comm )