teshsuite/smpi/mpich3-test/f77/ext/ctypesinf.f

   1 C -*- Mode: Fortran; -*-
   2 C
   3 C  (C) 2010 by Argonne National Laboratory.
   4 C      See COPYRIGHT in top-level directory.
   5 C
   6       program main
   7       include 'mpif.h'
   8       integer ierr
   9       integer errs, wrank
  10       integer f2ctype
  11 C
  12       call mtest_init( ierr )
  13       call mpi_comm_rank( MPI_COMM_WORLD, wrank, ierr )
  14 C
  15       errs = 0
  16 C
  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 )
  37       endif
  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 )
  42       endif
  43 C
  44 C Summarize the errors
  45 C
  46       call mtest_finalize( errs )
  47       call mpi_finalize( ierr )
  48
  49       end