!
! Copyright (C) by Argonne National Laboratory
!     See COPYRIGHT in top-level directory
!

! Based on a sample program that triggered a segfault in MPICH
program testf90_mpi
  use mpi_f08
  implicit none
  integer errs
  integer :: ierr
  TYPE(MPI_Datatype) :: ctype, rk_mpi

  errs = 0
  call mtest_init(ierr)

  call MPI_Type_create_f90_real(15, MPI_UNDEFINED, rk_mpi, ierr)
  call MPI_Type_contiguous(19, rk_mpi, ctype, ierr)
  call MPI_Type_commit(ctype, ierr)
  call MPI_Type_free(ctype, ierr)

  call mtest_finalize(errs)

end program testf90_mpi
