program have_fc_mpi_integer16
use mpi
implicit none
integer, parameter :: ii = MPI_INTEGER16
end program have_fc_mpi_integer16