1 ! -*- Mode: Fortran; -*-
3 ! (C) 2011 by Argonne National Laboratory.
4 ! See COPYRIGHT in top-level directory.
6 ! Based on a sample program that triggered a segfault in MPICH
12 integer :: rk_mpi, ierr, ctype
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)
22 call mtest_finalize(errs)
23 call MPI_Finalize(ierr)
25 end program testf90_mpi