1 C -*- Mode: Fortran; -*-
3 C (C) 2003 by Argonne National Laboratory.
4 C See COPYRIGHT in top-level directory.
8 C Test support for MPI_STATUS_IGNORE and MPI_STATUSES_IGNORE
11 parameter (nreqs = 100)
19 if (ierr .ne. MPI_SUCCESS) then
21 print *, 'Unexpected return from MPI_INIT', ierr
25 call mpi_comm_rank( MPI_COMM_WORLD, rank, ierr )
26 if (ierr .ne. MPI_SUCCESS) then
28 print *, 'Unexpected return from MPI_COMM_WORLD', ierr
32 call mpi_isend( MPI_BOTTOM, 0, MPI_BYTE, rank, i,
33 $ MPI_COMM_WORLD, reqs(i), ierr )
34 if (ierr .ne. MPI_SUCCESS) then
36 print *, 'Unexpected return from MPI_ISEND', ierr
39 call mpi_irecv( MPI_BOTTOM, 0, MPI_BYTE, rank, i,
40 $ MPI_COMM_WORLD, reqs(i+1), ierr )
41 if (ierr .ne. MPI_SUCCESS) then
43 print *, 'Unexpected return from MPI_IRECV', ierr
48 call mpi_waitall( nreqs, reqs, MPI_STATUSES_IGNORE, ierr )
49 if (ierr .ne. MPI_SUCCESS) then
51 print *, 'Unexpected return from MPI_WAITALL', ierr
54 call mtest_finalize( errs )
55 call mpi_finalize( ierr )