1 ! This file created from test/mpi/f77/pt2pt/statusesf.f with f77tof90
2 ! -*- Mode: Fortran; -*-
4 ! (C) 2003 by Argonne National Laboratory.
5 ! See COPYRIGHT in top-level directory.
8 ! 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 )