1 C -*- Mode: Fortran; -*-
3 C (C) 2010 by Argonne National Laboratory.
4 C See COPYRIGHT in top-level directory.
12 call mtest_init( ierr )
13 call mpi_comm_rank( MPI_COMM_WORLD, wrank, ierr )
17 errs = errs + f2ctype( MPI_CHAR, 0 )
18 errs = errs + f2ctype( MPI_SIGNED_CHAR, 1 )
19 errs = errs + f2ctype( MPI_UNSIGNED_CHAR, 2 )
20 errs = errs + f2ctype( MPI_WCHAR, 3 )
21 errs = errs + f2ctype( MPI_SHORT, 4 )
22 errs = errs + f2ctype( MPI_UNSIGNED_SHORT, 5 )
23 errs = errs + f2ctype( MPI_INT, 6 )
24 errs = errs + f2ctype( MPI_UNSIGNED, 7 )
25 errs = errs + f2ctype( MPI_LONG, 8 )
26 errs = errs + f2ctype( MPI_UNSIGNED_LONG, 9 )
27 errs = errs + f2ctype( MPI_FLOAT, 10 )
28 errs = errs + f2ctype( MPI_DOUBLE, 11 )
29 errs = errs + f2ctype( MPI_FLOAT_INT, 12 )
30 errs = errs + f2ctype( MPI_DOUBLE_INT, 13 )
31 errs = errs + f2ctype( MPI_LONG_INT, 14 )
32 errs = errs + f2ctype( MPI_SHORT_INT, 15 )
33 errs = errs + f2ctype( MPI_2INT, 16 )
34 if (MPI_LONG_DOUBLE .ne. MPI_TYPE_NULL) then
35 errs = errs + f2ctype( MPI_LONG_DOUBLE, 17 )
36 errs = errs + f2ctype( MPI_LONG_DOUBLE_INT, 21 )
38 if (MPI_LONG_LONG .ne. MPI_TYPE_NULL) then
39 errs = errs + f2ctype( MPI_LONG_LONG_INT, 18 )
40 errs = errs + f2ctype( MPI_LONG_LONG, 19 )
41 errs = errs + f2ctype( MPI_UNSIGNED_LONG_LONG, 20 )
44 C Summarize the errors
46 call mtest_finalize( errs )
47 call mpi_finalize( ierr )