teshsuite/smpi/mpich3-test/f90/datatype/trf90.f90

   1 ! -*- Mode: Fortran; -*-
   2 !
   3 !  (C) 2011 by Argonne National Laboratory.
   4 !      See COPYRIGHT in top-level directory.
   5 !
   6 ! Based on a sample program that triggered a segfault in MPICH
   7 program testf90_mpi
   8   implicit none
   9   use mpi
  10
  11   integer errs
  12   integer :: rk_mpi, ierr, ctype
  13
  14   errs = 0
  15   call mtest_init(ierr)
  16
  17   call MPI_Type_create_f90_real(15, MPI_UNDEFINED, rk_mpi, ierr)
  18   call MPI_Type_contiguous(19, rk_mpi, ctype, ierr)
  19   call MPI_Type_commit(ctype, ierr)
  20   call MPI_Type_free(ctype, ierr)
  21
  22   call mtest_finalize(errs)
  23   call MPI_Finalize(ierr)
  24
  25 end program testf90_mpi